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FUCHSJAGD 

Eingeschränkte 
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FÜR DEN 
ANFÄNGER 
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HELIKOPTER 


PACBOY 


SUPER ASSEM 


Von unserem Super-Software-Programm sollten auch Sie profitieren!!! 
Denn wir haben die fantastischsten Spiele und die tollsten Hilfspro- 
gramme ! ! ! Wir haben die Programme, die Sie haben sollten ! ! ! 

CHESS MACH I N E 

Das neue Schachprogramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen! — Höchstens bei Computer mit Super-Hochauflösender Grafik! -- Und der 
Clou. CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 
wissen was Sie richtig, und was Sie falsch machen I Sieben Spielstufen I 
Preis auf Cassette: 59,- DM Preis auf Diskette: 69,-- DM 

SUPER BASIC - DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z. 8 . D I M BS (9,9,8) gehtl) ! SUPER BASIC ist 
fast kompatibel zum Colour Genie Basic! Übersetzte Programme laufen bis zu 300x 
schneller I 

Preis auf Cassette . 89.- DM Preis auf Diskette: 99,- DM - Mit Disk -Befehlen 1 1 ! 

SUPER ASSEMBLER - DER ASSEMBLER, DER NEUE MASSSTÄBE SETZT! 
Was Sie mit diesem Assembler alles übersetzen können ist unglaublich ! ! I Und die vie- 
len Befehle, die der versteht. Die Disk-Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 170 Kl) I 

Preis auf Cassette: 89,- DM Preis auf Diskette: 99,- DM 

HELIKOPTER 

Retten Sie die armen hilflosen Menschen! Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER — Das Spiel, von dem die Fachpresse schwärmt! (Siehe 
z. B. Computer Kontakt Nr. 6-7/84) 

Nur auf Cassette lieferbar ! Preis : 59,- DM 

GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen! 

Nur auf Cassette lieferbar! Preis: 49,- DM 

FIREBIRD 

Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super-Action ist garantiert! 

Nur auf Cassette lieferbar I Preis : 49,- DM 

PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespenstern zu entkommen! 
Preis auf Cassette: 49,- DM Preis auf Diskette: 56,- DM 

VORTEX 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette . 49.- DM Preis auf Diskette : 56,- DM 

AST RAY 

Fliegen Sie den schnellsten Überschalljäger der Erda und vernichten Sie die Angreifer 
Preis auf Cassette: 59,- DM Preis auf Diskette 66,- DM 

Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestellen 
Sie noch heute bei: Heinz Hübben, Abt. Software, b429 Marienfels/Ts. 

Versand per Nachnahme. + 5,- DM Porto — Versand per Vorkasse : Frei 







Damm 


Komplett-Paket bestehend aus 


KEYBOARD 

— 49 Tasten, 4 Oktaven C-C 

— PROFIFORMAT 

— Gehäuse aus stoßfestem Kunststoff 
im Commodore-Design 

.— Interface-Modul mit Verbindungs- 
kabel, anschlußfertig 

SOFTWARE 

— auf 5 14'' Diskette 

— Programm MONO 64 — 
monophoner Synthesizer 

— Programm POLY 64 — 
polyphones Keyboard 

— Klangfarben direkt am PC 
veränderbar 


EINFÜHRUNGSPREIS DM 495 ,- 


Direkt ab Werk, noch heute bestellen! 


inkl. MWSt, 




Orgel- und Piano-Bausätze 


Industriestraße 


5401 Halsenbach 
Telefon (06747)7131 
Telex 42323 


Absender 


Unterschrift 

-- BesteUcoupon abtrcnnen und an Wersi senden — 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software, Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


Tel. 


BESTELLCOUPON 

Das WERSIBOARD MUSIC 64 ist Klasse 

□ Ich bestelle zu sofortiger Lieferung das 
WERSIBOARD MUSIC 64 zum 
Einführungspreis von DM 495,- 

- zuzgl Versandselbafcosen — 

gewünschte Zahlungsart 

□ Scheck ist beigefügt 

□ per Nachnahme 


" x ’J-.', ;. 


4 GENIE DATA 

A. Klepper, Deichstraße 2, 2221 Busenwurth, schreibt: 

1. Betr.: GENIE DATA: 

Erfreulich, daß es eine Schrift A 

speziell für die Genie-Familie gibt. 

Jedoch wäre es besser, wenn 
nicht nur seitenlang Listings ab- 
gedruckt würden, sondern wenn 
vielmehr Tips u. Tricks im Um- 
gang mit dem Colour Genie an- 
geführt würden. Z.B. mit diesen 
u. jenen Poke's kann man die 
BREAK-Taste-Funktion an, bzw. 
ausschalten usw. 

2. Betr.: Colour Genie. 

Haben die Verteiber vom Colour 1, Colour Basic 
Genie gepennt? 2. Techn. Handbi 


LESERMe 



Es gibt kaum spezielle Literatur 
zum Colour Genie. In allgemeiner 
Literatur wird er kaum ange- 
führt! 

3. Rubrik für den Anfänger. Wo 
ist sie geblieben? (4/84). 

Zu 1. 

Den Trick mit der BREAK-Taste 
finden Sie in dieser Ausgabe Pro- 
gramm „Trampolin", Zeile 80. 

Zu 2. 

Gepennt hat niemand! 

Zum Colour Genie gibt es folgen- 
de Bücher: 


1. Colour Basic leicht gelernt. 

2. Techn. Handbuch zum Colour 
Genie. 

3. Zwei versch. Colour Genie- 
ROM-Listings. 

4. Colour Genie Buch 1, 2 und 3. 

5. Colour-DOS Buch. 



Vermerk der Redaktion : „Was be- 
gehrt das Herz noch mehrl" 

...übrigens ALLE DIESE 
BÜCHER KÖNNEN SIE BEI UNS 
BEZIEHEN! 


Ferner: Erhalten Sie bei der 
gleichen Adresse ab sofort die 
gesamte Angebotspalette der Fa. 
TCS Computer GMBH. 

Zu 3. 

Die Rubrik für den „Anfänger" 
kann nur erscheinen, wenn An- 
fänger uns Fragen stellen. 

Hier sind alle Anfänger zur Mit- 
arbeit aufgerufen 1 1 ! 

GENIE DATA 

Bestell-Adresse: 

Fa. Ralf M. Hübben, 

Verlag für Computertechnik 
Mühlbachstraße 2, 

D-5429 Marienfels/Ts. 


Mm 



LIEBE LESERI 
Uns erreichen immer wieder Briefe, in 
denen man uns bittet, die GENIE DATA 
monatlich erscheinen zu lassen. 

Würde das auch in Ihrem Interesse 
liegen? 

Schreiben Sie uns! 

Sollte die Mehrzahl unserer Leser sich 
dafür aussprechen, wird die GENIE DATA 
ab dem 1. Januar 1985 monatlich er- 
scheinen. 

Bitte, teilen auch Sie uns Ihre Meinung 


Mit freundlichem Gr 


Chefredakteur 
GENIE DATA 

P.S. Bol monatlichem Erscheinen würde den Abonnen- 
ten für Je 6 Ausgaben (2x Im Jahr), eine Rechnung Uber 
DM 59.40 übersandt. 




INHALT 


HEXDUMP 

Haben Sie schon einmal probiert, mit 

dem Colour Genie einen brauchbaren Hexdump 


zu erstellen ? Jetzt geht es ! 

Seite 7 

BOMBER 

Ein faszinierendes Action-Spiel für Sie. 
Wehren Sie den Bomber ab I 

Sei te 8 

SCHWARZMARKT 

Seite 14 

Assembler - Teil 6 

Hier ist der 6. Teil unseres beliebten 
Assembler- Kurses. 

Seite 15 

FÜR DEN ANFÄNGER 

Heute erfahren Sie, wie man Programme lädt, 
die sich sonst nicht laden lassen. Seite 16 

GROSS -KLEIN . 

Eine Hilfe für Ihr Colour Genie 

Seite 17 

PROGRAMMIERER-WETTBEWERB 

RÖSSL-SPRUNG 

Sie sollten mitmachen, bei unserem Wett- 
bewerb! Wir haben tolle Preise für 
Sie! 

Seite 18 

KLEINANZEIGEN 

Seite 19 

SPRACHAUSGABE 

Das Programm aus der letzten Ausgabe, 
jetzt als Assembler-Quelleöde 

Seite 21 

WIE HÄTTEN SIE'S GERNE? 

Hier ist die Auswertung unserer Umfrage 
aus der letzten GENIE DATA 

Seite 23- 


SHIFT-TRICK 

Was man ohne viel Aufwand am ROM 


der Genie Computer ändern kann, 
steht ab 

Seite 24 

3-D GRAFIK 

Ein Programm das drei dimensionale 
Funktionen plottet. Für Genie 16! 

Seite 26 

HUMMELFLUG 

Machen Sie Ihr Genie 16 zum Musikus, 
mit unserem Programm Hummelflug 

Seite 26 

KAMPF DER RIESENZWERGE 

Was Schachprogramme wirklich können 
erfahren Sie hier am Beispiel von 
GRANDMASTER und SFINKS 

Seite 28 

TURNIER PLANER 

Turniere aller Art lassen sich mit diesem 
Programm planen ! 

Seite 33 

DIE MAUS IST RAUS 

Das Siegerprogramm des Maus-Wettbewerbes, 
mit Kommentaren vom Gewinner Seite 35 

TRAMPOLIN 

Ein tolles Spiel für Ihr Colour Genie 

Seite 37 

MiNICALC 

Hier haben Sie ein Kalkulationsprogramm 
für alle Genie und TRS 80 Computer. 

Seite 41 

FUCHSJAGD 

Ein tolles Spiel für alle Colour Genie Freunde. 
Listing ab Seite 47 


EINGESCHRÄNKTE HOCHAUFLÖSENDE 
GRAFIK 

Das Programm für Genie Freunde Seite 57 


GENIE DATA, Ausgabe 5, Jahrgang 2, 
SaptemOer/Oktober 198« 

Herausgebor: Heinz HUbban, Offiatdruckeral 
und Verlag, 5429 Marlenfels. 

Telefon: 06772-1261 

Chefredakteur: Heinz HUbbon 

Tltelgeslaltung: H. HUbban, Offsetdruckerei 

und Verlag, 5429 Marlenfels/T«- 

Satz: H. HUbban. Offsotdruckerel und Verlag, 

5429 Varienfels/T«. 

Druck: H. HUbbon, Offsetdruckerei und 

Verlag, 5429 MarlenfaH/Tj. 
Erscheinungsweise: Alle zwei Monate. Jeweils 
am 1 . des Monats. 

Abonnements: 59,40 DM Incl. Porto, Verpak- 
kung und gesetzt. MWSt. 

Erfüllungsort: 5429 Marlenfels/Ts. 
Gerichtsstand: In Jedem Fall das für unseren 
Verlag zuständige Gericht. 

Manuskripte: Unangeforderte Manuskripte 

werden nur zurückgesandt, wenn ausreichen- 
des Rückporto bolgalegt wurde. Jeder Ein- 
sender erklärt sich durch die Einsendung mit 
einer Veröffentlichung des eingesandten Ma- 
terials ln der GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


IMPRESSUM 

Copyright (c) 1984 by Heinz HUbban, Offsat- 
druckerol und Verlag, 5429 Marlenfels /Ts. 
Nachdruck, Vervieiiait:gung, Übertragung so- 
wie Speicherung In EDV-Anlagen verboten. 
Sol Bauanleltungen und/oder Programmen 
kann für die Fohlorfrelheit keine Garantie 
Übernommen werden. 

Oie Meinung der einzelnen Autoren muS 
nicht mit der dos Vortages Uoerolnstlmmen. 
Anfragen an die Redaktion bitte nur schrift- 
lich mit belgolegtom Rückporto. 

Kündigung der Abonnements: Zu Jedom Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages lie- 
gen. nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schaden und/oder Folgescha- 
den an Geraten und oder Bauteilen und/oder 
□atenvarlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauanlel- 
tungen und/oder die Anwendung von Pro- 
grammen aus dar GENIE DATA erfolgt auf 
elgane Gofahr. Allo Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte vorbehalton. Es kann keino 
Gewahr dafür übernommen werden, da8 die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrochten Dritter sind, 
sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines evontuellon Patent- 
schutzes una/oder Gebrauchsmusterschutzes. 
Bel allen Artikel-Einsendungen gehen wir da- 
von aus, daB dor Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Ober Jede Artikel-Einsendung freuen wir unsl 
Honorar: Für Jeden gedruckten Artikel be- 
zahlen wir pro Druckseite oln Honorar von 
50,- DM. 

Wir gestatten Jedermann, einen Artikel aus der 
GENIE DATA zu entnehmen, und In einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stellt. 
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Sehr geehrte Damen und Herren, 
mit großem Interesse habe ich 
den Artikel „Neuer Zeichensatz 
für Genie I + II" in der GENIE 
DATA 1/84, Seite 41 ff gelesen. 
Leider hat die Autorin Frau 
Catharina Stodden einen Fehler 
eingebaut, der eine Nachahmung 
evtl, scheitern lassen könnte. 

Auf Seite 42 in der mittleren 
Spalte beschreibt sie, wie die 
einzelnen Zeichen im EPROM 
abgespeichert sind. Es ist aber 
falsch, wenn sie sagt, daß das 
Zeichen ,,0" auf der EPROM- 
Adresse 0000H beginnt. Wenn 
man den ASCII-Wert des Zei- 
chens „0" (48 dez.) in hexade- 
zimal umwandelt, kommt dabei 


lESEßbrief 



HILFE! HILFE! HILFE!!! 
Wer hilft einem frustrierten Genie- 
Fan? 

Ich stehe vor einem schier un- 
lösbaren Problem. Wenn ich ver- 
suche in einem Basic-Programm 
Variable mit der "PRINT -1"- 
Anweisung auf Band zu schrei- 


die Hexzahl 30H heraus. An die- ben u. diese später wieder zu le- 


se 30H wird eine Null angehängt 
(jetzt 300H) und an genau dieser 
EPROM-Adresse beginnt auch die 
Definition des Zeichens „0" und 
endet bei 30FH. In dieser Weise 
kann man mit allen restlichen 
ASCII-Zeichen genauso verfahren. 
Die Zeichen die von 000H bis 
1FFH im EPROM gespeichert 
sind, sind Sonderzeichen die ohne 
untenstehenden Hardware-Trick 
nicht zugänglich sind. Aber viel- 
leicht kennt ein GENIE DATA- 
Leser eine softwaremäßige Ansteu- 
erung dieser Zeichen. 

Ich hoffe, ein wenig Ihr Inter- 
esse geweckt zu haben u. Ver- 
bleibe mit freundlichen Grüßen 
Peter Spieß 

T rugenhofenerstraße 27 
8859 Rennertshofen 1 

BESTEN DANK Herr Spieß 
und wir fragen unsere Leser, 
wer weiß Rat! 

GENIE DATA 


sen, so findet mein CG alles, nur 
nicht die Daten. Ich habe in- 
zwischen alle guten Ratschläge 
(Tonkopfjustierung, veränderte 
Lautstärke, anderes Band, etc.) 
ausprobiert, ohne Erfolg. Selt- 
samerweise tritt dieser Fehler nur 
bei Basicprogrammen auf, mit 
Maschinenspracheprogrammen 
aber nicht. 

Ich habe z.B. keine Probleme, 
wenn ich mit meinem COLTEX 
Texte abspeichere u. sie dann 
wieder lade. 

Bei den falsch gelesenen Variab- 
len sind oft aus wenigen Zahlen 
mehrzeilige Daten geworden (z.B. 
5-6 Zeilen U ), oder es werden 
wirr Zahlen, Buchstaben u. Gra- 
fikzeichen dargestellt. 

Vielleicht weiß jemand Rat, wie 
man dieses Übel beseitigen kann, 
evtl, durch ein Maschinenpro- 
gramm, welches man aufruft? 
Hubert Martin 
Hirschfeld 
8641 Steinbach/W. 


1 4 
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1 
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Wer weiß Rat? 
Wer kann helfen? 

GENIE DATA 


fahrungen anderer Colour Genie- 
Besitzer zu erfahren, bitte ich Sie 
unter der Aktion „Leser sucht 
Leser" folgende Haupt- Inte resse 
anzugeben: Colour Genie, Disk, 
Tips und Erfahrungsaustausch. 
Mit besten Dank 
und freundlichem Gruß 
Helmut Aldag 
Rintelner Straße 8 
4952 Porta Westfalica 
So etwas hört man gern und wir 
hoffen, daß Sie bald Ihre Kon- 
taktleute finden werden. 

GENIE DATA 


Lassen Sie mich zuerst an dieser 
Stelle sagen, daß ich die GENIE 
DATA wohl für die am besten or- 
ganisierten Fachzeitschrift im 
Computerwesen halte. 

NUN ZU MEINER FRAGE: 

Mir ist von einem Freund, 
der auch ein Colour Genie besitzt, 
zu Ohren gekommen, daß das 
Diskettenlaufwerk für das Colour 
Genie erst ab der Speicherstelle 
6000 abspeichert. 

Dieses hätte ja den Nachteil, 
daß man Programme die sehr lang 
sind, wie z.B. Deathtrap von TCS, 
überhaupt nicht auf Diskette si- 
chern kann. Die Tatsache, daß 
TCS Deathtrap nicht auf Dis- 
kette anbietet läßt mich vermu- 
ten, daß mein Freund mit seiner 
Aussage Recht hat. 

Detlef Heese 
Hölderlinstraße 16 


Diese Erweiterung funktioniert 
nur ohne DOS und ohne Klein- 
schriftmodul. Vom IC Z8 auf der 
rechten Videoplatine wird einfach 
Pin 13 über einen Schalter an 
Masse (Pin 7) gelegt. 


Als Leser Ihrer Zeitung + Abon- 
nent von der ersten Ausgabe an, 
möchte ich .mich einmal für das 
gesamte Wissen, daß ich bisher aus 
der GENIE DATA aufnehmen 
konnte, bedanken. Um auch Er- 


4500 Osnabrück 

Wer weiß genaues? 

GENIE DATA 
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Ralph Ertner 


HEXdump 


Das folgende Programm ist für 
das Colour Genie geschrieben u. 
belegt die ersten 800 Byte im Zei- 
chenspeicher (F400HiF720H), 
kann also von jedem GG-Besit- 
zer benutzt werden, egal ob 
16, 32 oder 44 K, alte oder neue 
ROMs. Wenn das Programm ein- 
getippt ist, kann es bei F500H 
gestartet werden. 

Nach Erscheinen der Überschrift 
verlangt es als Anfangs- u. End- 
adresse des zu "dumpenden" 
Speicherbereiches jeweils 4-stelli- 


ge Hexzahlen. Sollte eine der Zah- 
len keine Hexzahl sein, die End- 
adresse kleiner als die Anfangs- 
adresse oder eine der Zahlen 
nicht 4-stellig sein, kommt es zu 
einer Fehlermeldung mit anschl. 
Neustart. Die Ausgabe besteht 
im ganzen aus (INT (Endadresse 
- Anfangsadresse)+1)/16 Zeilen 
folgenden Aufbaus: Am Zeilenan- 
fang steht die hexadezimale Adres- 
se des ersten der weiteren Byte. 
Es folgen ein Doppelpunkt u. die 
mit der Adresse beginnenden 16 


Byte, natürlich auch hexadezimal. 
Den Abschluß jeder Zeile bilden 
die ASCII-Zeichen der 16 Byte, 
wobei alle Byte, die kleiner 20H 
u. größer 7EH sind, als Punkt 
dargestellt werden. 

Das Programm wurde mit dem 
STAR DP 8480 getestet, läuft 
aber auch auf anderen Druckern, 
die 80 Z/Zeile darstellen können 
u. als Steuerzeichen für Fett- 
schrift (Double widthJOEH haben. 
Damit ist zu dem Programm alles 
gesagt. 


* * * >*< * * * ** ** >♦< * * > 4 * >*< * * >*< > 4 « +***>♦< >♦< * 4 : * ** 

* * 

* HEXDUMP „f. Colour Genie * 

* . ■ >*< 


F400 

• 

DB 

20 

20 

4B 

45 

58 

44 

55 

4D 

50 

20 

20 

66 

2E 

20 

43 

F410 


6F 

6C 

6F 

75 

72 

20 

47 

65 

6E 

69 

65 

20 

20 

CF 

00 

00 

F420 

• 

00 

DB 

20 

20 

20 

28 

43 

29 

20 

31 

39 

38 

33 

20 

62 

79 

F430 


20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

CF 

00 

F440 

: 

00 

00 

DB 

20 

20 

20 

20 

20 

20 

53 

6F 

66 

74 

77 

61 

72 

F450 

■ 

■ 

65 

68 

61 

75 

73 

20 

45 

52 

54 

4E 

45 

52 

20 

20 

20 

CF 

F460 

■ 

• 

00 

00 

00 

00 

CD 

C9 

01 

21 

2A 

44 

E5 

36 

DB 

23 

06 

IC 

F470 

■ 

» 

36 

D3 

23 

10 

FB 

36 

CF 

El 

01 

28 

00 

09 

E5 

11 

00 

F4 

F480 

t 

CD 

C5 

F4 

ED 

BO 

El 

01 

28 

00 

09 

E5 

36 

DB 

23 

06 

IC 

F490 

: 

36 

20 

23 

10 

FB 

36 

CF 

El 

01 

2B 

00 

09 

E5 

11 

21 

F4 

F4AO 

■ 

■ 

CD 

C5 

F4 

ED 

BO 

El 

01 

28 

00 

09 

ES 

11 

42 

F4 

CD 

C5 

F4B0 

: 

F4 

ED 

BO 

El 

01 

28 

00 

09 

36 

DB 

23 

06 

IC 

36 

DA 

23 

F4C0 

» 

■ 

10 

FB 

36 

CF 

C9 

EB 

01 

IE 

00 

C9 

21 

F7 

F4 

CD 

E7 

F4 

F4D0 

: 

D5 

DD 

El 

21 

FC 

F4 

CD 

E7 

F4 

D5 

FD 

El 

DD 

E5 

Dl 

FD 

F4E0 

■ 

» 

E5 

El 

DF 

DA 

6B 

F6 

C9 

11 

00 

00 

CD 

16 

35 

DA 

6B 

F6 

F4F0 

3 

CD 

FE 

34 

D2 

6B 

F6 

C9 

46 

34 

30 

30 

OD 

46 

37 

31 

46 

F500 

i 

OD 

3E 

07 

32 

19 

40 

3E 

66 

32 

1A 

40 

CD 

64 

F4 

CD 

11 

F510 

i 

F6 

CD 

CA 

F4 

CD 

20 

F5 

CD 

85 

F6 

CD 

C9 

01 

C3 

66 

00 

F520 

3 

2A 

20 

20 

20 

20 

20 

20 

OE 

48 

45 

58 

44 

55 

4D 

50 

20 

F530 

3 

14 

20 

20 

20 

20 

20 

66 

2E 

20 

43 

6F 

6C 

6F 

75 

72 

20 

F540 

3 

47 

65 

6E 

69 

65 

20 

20 

20 

20 

20 

20 

2A 

00 

00 

28 

43 

F550 

3 

29 

20 

31 

39 

38 

33 

20 

62 

79 

20 

53 

6F 

66 

74 

77 

61 

F560 

3 

72 

65 

68 

61 

75 

73 

20 

45 

52 

54 

4E 

45 

52 

00 

00 

00 

F570 

8 

CD 

B5 

F5 

06 

32 

CD 

BF 

F5 

10 

FB 

CD 

94 

03 

CD 

C5 

F5 

F580 

3 

21 

20 

F5 

06 

2C 

7E 

CD 

3B 

00 

23 

10 

F9 

CD 

94 

03 

CD 

F590 

3 

C5 

F5 

06 

32 

CD 

BF 

F5 

10 

FB 

CD 

94 

03 

CD 

94 

03 

06 

F5A0 

3 

10 

3E 

20 

CD 

3B 

00 

10 

F9 

21 

4E 

F5 

06 

1F 

CD 

EO 

F5 

F5B0 

3 

C9 

00 

00 

00 

00 

06 

OB 

3E 

20 

CD 

3B 

00 

10 

F9 

C9 

3E 

F5C0 

3 

2A 

CD 

3B 

00 

C9 

CD 

B5 

F5 

CD 

BF 

F5 

06 

30 

3E 

20 

CD 





8 GENIE DATA 


F5D0 

3B 

00 

10 

F9 

CD 

BF 

F5 

CD 

94 

03 

CD 

B5 

F5 

C9 

FF 

00 

F5E0 

7E 

CD 

3B 

00 

23 

10 

F9 

06 

03 

CD 

94 

03 

10 

FB 

C9 

41 

F5F0 

6E 

66 

61 

6E 

67 

73 

61 

64 

72 

65 

"7 •.’> 

73 

65 

20 

3A 

00 

F600 

45 

6E 

64 

61 

64 

72 

65 

73 

73 

65 

20 

20 

20 

20 

20 

3A 

F610 

00 

3E 

93 

32 

20 

40 

3E 

45 

37 

21 

40 

21 

EF 

F5 

CD 

A7 

F620 

28 

3E 

A5 

32 

20 

40 

21 

F7 

F4 

06 

04 

CD 

D9 

05 

CD 

49 

F63Ö 

F6 

3E 

E3 

32 

20 

40 

21 

00 

F6 

CD 

A7 

28 

3E 

F5 

32 

20 

F640 

40 

21 

FC 

F4 

06 

04 

CD 

D9 

05 

78 

FE 

04 

DA 

6B 

F6 

C9 

F650 

20 

20 

20 

20 

20 

20 

28 

75 

6E 

6B 

6F 

72 

72 

65 

6B 

74 

F660 

65 

20 

45 

69 

6E 

67 

61 

62 

65 

29 

00 

3E 

5D 

32 

20 

40 

F670 

3E 

46 

32 

21 

40 

21 

50 

F6 

CD 

A7 

28 

01 

FF 

FF 

CD 

60 

F6B0 

00 

C3 

OB 

F5 

00 

DD 

E5 

El 

00 

00 

00 

00 

00 

00 

00 

00 

F690 

00 

00 

00 

7C 

CD 

F4 

F6 

7D 

CD 

F4 

F6 

3E 

20 

CD 

3B 

00 

F6A0 

3E 

3A 

CD 

3B 

00 

3E 

20 

CD 

3B 

00 

3E 

20 

CD 

3B 

00 

1 1 

F6B0 

11 

F7 

06 

10 

7E 

FE 

20 

38 

37 

FE 

80 

30 

33 

12 

IC 

D5 

F6CO 

7E 

CD 

F4 

F6 

23 

3E 

20 

CD 

3B 

00 

Dl 

10 

E7 

06 

04 

3E 

F6D0 

20 

CD 

3B 

00 

10 

F9 

11 

1 1 

F7 

06 

10 

1A 

IC 

D5 

CD 

3B 

F6E0 

00 

Dl 

10 

F7 

CD 

94 

03 

FD 

E5 

Dl 

EB 

DF 

D8 

EB 

18 

A3 

F6F0 

3E 

2E 

1B 

C9 

F5 

CB 

3F 

CB 

3F 

CB 

3F 

CB 

3F 

CD 

03 

F7 

F700 

Fl 

E6 

OF 

FE 

OA 

30 

06 

C6 

30 

CD 

3B 

00 

C9 

C6 

37 

18 

F7 1 0 

F8 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 

2E 


Ulrich Groke 


10 

F'OKE 

&HF40Q.- 153 

140 

F'OKE 

&HF40D? 36 

270 

F'OKE 

&HF41 A? 3 

20 

F'OKE 

?<HF 40 1 - 90 

1 50 

F'OKE 

&HF40E? 36 

280 

F'OKE 

S/.HF41B? 15 

30 

F'OKE 

&HF402 , 60 

1 60 

F'OKE 

&HF40F? 36 

290 

F'OKE 

&HF41C? 31 

40 

F'OKE 

&HF403, 24 

170 

F'OKE 

&HF41Ö» 0 

300 

F'OKE 

&HF41D? 63 

50 

F'OKE 

&HF404 , 60 

180 

F'OKE 

8<HF4 11? 96 

310 

F'OKE 

?iHF41E? 127 

60 

F'OKE 

&HF405, 66 

1 90 

F'OKE 

&HF412? 96 

320 

F'OKE 

&HF41F ? 255 

70 

F'OKE 

&HF406? 129 

200 

F'OKE 

8'HF 413? 92 

330 

F'OKE 

&HF420» 0 

80 

F'OKE 

&HF407, 129 

210 

F'OKE 

&HF414» 96 

340 

F'OKE 

8/HF421? 126 

90 

F'OKE 

&HF408, 153 

220 

F'OKE 

8<HF415? 120 

350 

F'OKE 

&HF422? 255 

100 F'OKE S<HF409? 90 

230 

F'OKE 

&HF 4 1 6 ? 8 

360 

F'OKE 

8/HF423 ? 255 

110 PGKE &HF40A» 60 

240 

F'OKE 

8<HF417 ? 8 

370 

F'OKE 

&HF424? 255 

120 F'OKE &HF 40B ? 24 

250 

F'OKE 

&HF4 18? 0 

3B0 

F'OKE. 

8<HF425? 255 

130 F'OKE &HF40C? 60 

260 

F'OKE 

&HF419? 0 

390 

F'OKE 

&HF426? 255 






cc Computer Studio GmbH 
Elisabethstraße 5 
4600 Dortmund 1 
Tel.: 02 31-52 8184 
Tx 822 631 cccsd 


nv&r-'l. 


, aa — 

ME ; 


NEU 

Darauf haben die TRS-80 Fans gewartet! 

GENIE II s 

Aus deutscher Produktion! 64K RAM, abgesetzte 

deutsche Tastatur, Bereits im ROM enthalten: 

Microsoft-BASIC, Maschinensprache Monitor 

Text Editor und Assembler 1795,-- 

GENIE 16 - Die 16 Bit Sensation 

8086 CPU, 2 Laufwerke je 360 KB, Farbgrafik, 

mit Perfect Calc, Perfect Text 

und Perfect Filer 5900,- 

NEU: TANDY MODELL 100 dor .ra^rc ab 1395,- 
COLOUR GENIE trs so 

Wir können noch liefern 1 

16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
auf Ihrem Farbfernseher, TRS-80® Mod. 1 
BASIC kompatibel 598,- 

dto. mit 32 KB RAM 670,- 

®TRS-80 ist eingetragenes Warenzeichen der Tandy 
Corp. '■CP/M ist eingetragenes Warenzeichen von Digital 
Research. 


PERIPHERIE 

•7 V. * •••••■ 


Monitor cc 1201, Stahlblechgehäuse, 

20 MHz Bandbreite, Röhre Bernstein, entspiegelt! 348,-- 
Slim Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 1499,- 

Andere Laufwerke und Kapazitäten auf Anfrage lieferbar. 
TELEFONMODEM Acoustic Koppler AC 300, 
voll Duplex. Originate und Answer, 

FTZ-Nr. 18.13.1897.00 539,- 

Brother HR 15 Typenraddruckerder ideale 
Schönschreibdrucker mit den vielen Kombi- 
nationsmöglichkeiten 

Katalog u. Testbericht kostenlos 1599,- 

Expansion Interface für TRS-80® incl. 32 K RAM 925,- 
Double Density Controller für Tandy und 
Video Genie 198,-- 

16 K Erweiterung für Colour Genie 79,- 

Star Drucker Gemini -10X, 120 Z/sec, 

1920 Pkt. pr.o Zeile 998,- 

Zenith Monitor grün o. bernstein entspiegelt 298,- 

Datenrecorder 6019 (bitte Datenblatt anfordern) 149,- 


VERBRAUCHSMATERIAL 

' 

■ • . 

BASF Disketten, Qualimetrik, 10 Stück 
mit Verstärkungsring, Double Density 
Verbatim Disketten mit Verstärkungsring 

49- 

10 Stück, DD, mit orig. Reinig. Set 

69- 

Farbig sortierte Diskettenboxen, 10 Stück 

45.- 

| Datencassette C 20, BASF-SM 

2.45 

Farbbänder für: 

Tandy Line Printer 1, II u. IV je 

15,- 

Tandy Line Printer III u. V je 

' 19,50 

Tandy DW II je 

17,- 

Epson MX 80 je 

19.- 

Itoh 8510, 1550 je 

20,- 

Oki Microline, Star je 

Rest auf Anfrage. 

9,50 

| Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 


NEU: 28 Sollen Colour Gonl» Soltwarallsto 
kottonlos anfordorn I 

Wir suchen ständig neu« Programme für Colour Genlol 




^„.j ü ül H ga Buch- sowie ABO-Bestellungen an: 

pp.-y. .fwf jj m m Druckerei und Verlag H Ü B B E N, 

gUUi HnB 1 1 M ^ Mühlbachstraße 2, 

MHgBjj |§ i lÜpii ü M ^iy§P H H D - 5429 Marienfels/Taunus 

kommt es!!! 
DAS 

Colour Genie 


m m il M Preis; NUR DM49 " 

i gl HUB Sichern Sie sich Ihr COLOUR GENIE BUCH 

pl BB mLä® Fh indem Sie es noch heute bestellen ! 

^SilF ^*80^ Hi ™ - Ende Oktober werden wir die Bücher verschicken I - 

Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte RÖM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis! 



Unter allen ABO-BESTELLUNGEN die im Zeitraum von 
1. Oktober 1984 bis 1. November 1984 
bei uns eingehen, verlosen wir einen VZ 200 - COLOR COMPUTER. 

Den Gewinner geben wir in der nächsten GENIE DATA bekannt. Der Rechtsweg ist ausgeschlossen. 
SELBSTVERSTÄNDLICH erhalten NEU-ABONNENTEN auch weiterhin 
KOSTENLOS unsere beliebte PROGRAMMSAMMLUNG für die Genie-Familie! 

Der VZ 200 COLOUR COMPUTER bietet Ihnen folgende Vorteile 

12K Microsoft* Basic im ROM, 4K RAM, erweiterbar um 16K oder auf 64K, 32 Zeichen auf 16 Zeilen, Grafik und Text ist 
kombinierbar, HiRes Grafik-Modus mit 128 x 64 Punkten und 8 Farben, komplette Tastatur mit 46 Tasten, Basic-Befehle mit 
einem Tastendruck, im Textmodus 9 Farben, Tonwiedergabe über eingebauten Lautsprecher, mit COPY-Befehl voller Ausdruck 
der Bildschirmgrafik, 600 Baud Cassetten-Interface für handelsübliche Cassettenrecorder (kein teueres Spezlalgerät), 
Centronics-Paralell-Druckerinterface (Sonderzubehör), Peripherie-Anschluß (direkt eingebaut), anschließbar an jeden Farb- 
oder SW-Fernseher oder Video-Monitor, und, und, und 

Im Lieferumfang enthalten sind 3 deutsche Handbücher, eine Demo-Cassette, ein Netzteil und dar Computer. 



GENIE DATA 11 


1 000 
1010 
1020 
1 030 
1040 
1050 
1060 
1 070 
1080 
1 090 
1100 
1 1 10 
1120 
1 1 30 
1140 
1150 
1160 
1170 
1180 
1 1 90 
1200 
1210 
1220 
1240 
1250 


F'OKE &HF463» 36 

POKE &HF464, 255 

POKE &HF465n 126 

POKE ?/HF466,6Ö 

POKE &HF467,24 

POKE &cHF468 ? 0 

POKE 8<HF469 ? 0 

POKE S<HF46A? 0 

POKE &HF46B*0 

POKE &HF46C.- 255 

F'OKE &HF46D,192 

POKE &HF46E ? 192 

POKE !cHF46F,Ö 

C0L0UR4: CLS: LGR 

PR 1 NT@ 1 5 , " KAMPFANWE I SUNG" 

PRINTS80» "Kanone mit " 5 CHR* (253) 5 " und " 5 CHR* (255) 5 " 
PRI NT81 60 ? "Abschuss mit Leertaste" 

PRINT@880f " Wei ter durch druecken der Leertaste" 
A*=INKEY*s IFA*<>" "THEM 1180 
CLSs LGR: C0L0UR3 

PRI NT "Gebe Schwi er i skei tssr ad ein <1 - 3 )" 

A=1 

A=PEEK (-2032) 

IF A =2 THEN Q= 100« GOTO 1270 
IF A =4 THEN 0=50: G0T01 270 


einrichten. " 


1260 IF A =8 THEN 0=0: GOTO 1270 
1265 GQTD1220 
1270 CLS: Z= 1000 
1280 R=918:M=0 

1290 C0L0UR3: PRI NT®760, " -AJ ";: C0L0UR6: PRI NT "rwTi " ; : C0L0UR3* PRI 

AAA LA. JMtA. ; : C0L0UR2: PRINT " ♦" 5 : C0L0ÜR6 : PRI NT " ■ 


b— “ ; : C0LDUR4: PRINT" m — ■ 11 C0L0UR6: PRINT"! ■ ■ I" C0L0UR2: PRINT 
" « "5 : CDL0UR4: PRINT" "5 

1300 C0LDUR3 : PR I NT " 5 : C0L0UR4: F'RINT"! HUJü" ; : COLOUR2: PRINT" =" 5 : COLOU 
R3 : PR I MT " I " 5 : C0L0UR2 : PR I MT " =" 5 : C0LQUR6 : PR I NT " ■ W ■ ■ ■" 5 : C0L0UR7 : PR I NT " = 
"5 :C0LDUR4:PRINT"B-J BBH" ; : COLOUR7 : PR I NT" =" 5 : C0L0UR6 : PR INT" mmmm" ; : COL 
0UR7: PRINT"! Hl 1 ' : 


1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
13B5 
1 390 
1395 
1400 
1410 
) 

1415 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 


C0L0UR4 SPRINT"« a « CJUB«" 

B=39 
K=900 
G=RND (35) 

U=RND ( 35) 

W=RND (35) 

V=RND (35) 

C=RND ( 35) 

IF G=C THEN 1380 
IF G<C THEN D=1 ELSE D=-l 
F=G 
F=F+D 

C0L0UR3 : PRINT® F , CHR* <139)5 CHR* (139)5 CHR* (140)5 CHR* ( 1 4 1 ) 5 CHR* < 1 4 1 

IF PEEK (-2032) =184 THEN STOP 
A=F'EEK ( - 1 984 ) 

IF A =64 THEN IF KX916THEN K=K+1 
IF A =32 THEM IF K>BB1THEN K=K-1 
C0L0UR6 : PR I NT@K > 

IF R< 40 THEN GOSUB 1790 ELSE 1470 
IF R< 7 66 THEN 1490 ELSE GOTO 1480 

A*= INKEY*! IFA*<>" "THEN 1500 ELSE R=K-1 99: GOSUB 1780 1 

IF R=91B THEN 1500 ELSE GOSUB 1890 



12 GENIE DATA 


1500 
1510 
1520 
1530 
1540 
1550 
1 560 
1570 
1580 
1 590 
1 600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 
1680 
1685 
1690 
1700 
1710 
1720 
1 730 
1740 
1750 
1 760 
1770 

: SOUND 1 0 24 : SOUND 1 2 , 80 : SOUND 13,3: RETURN 

1780 S0UND6,3:30UND7,7: SOUNDB, 16:S0UND9, 16:S0UND10, 16:S0UND12, 16: SOUN 

Dl 3,0: RETURN 

1790 C0LQUR3: PR INTSR, 

1800 GOSUB 1770 

1810 FOR 1=1 TD50 : NEXT I 

1820 PR INTSR, " " 

1830 IF R=F THEM BOSUB I960 
1840 IF R=F+ 1 THEN BOSUB 1960 
1850 IF R=F+2 THEN GOSUB 1960 
1860 IF R-F+3 THEN GOSUB 1960 
1870 IF R=F+4 THEM GOSUB 1960 
1 B80 R=9 18: RETURN 

1 890 PR I NTSR , CHR$ (137): C0LDUR4 : PR I NTSR+40 , CHR* (138): RETURN 
1900 IF A AND 8=8 THEN IF R>881 THEN R=K- 158: RETURN 
1910 CDL0UR3: PRINTER, 

1920 GOSUB 1770 

1930 FOR 1=1 TO 50: NEXT I 

1940 PRINTER," " 

1950 Z=Z+ 1 00: R=918: B=39: RETURN 
1960 PR IN PSF, " » 

1970 FOR 1=1 TOI 00: NEXT I 
1980 F'RINTSF, 11 
1990 GOSUB 2350 
2000 P=F+4 1 
2010 C0L0UR6 

2020 FOR L=P TO 678 STEP 40 

2030 C0L0UR4: PRINTÖL, CHR$ ( 131 > 5 CHR$ ( 132) 5 CHR$ ( 133) 

2040 PR I NTSL+40 , CHR$ ( 1 34 ) ; " ,, ;CHR$<135> 

2050 C0L0UR3: F'RINT@L+81 , CHR$ (128) 

2060 C0L0UR6: IF B>240 THEN F'RINTSB, CHR* ( 136) 


IF Et >880 THEN GOSUB 2360 
IF F=U THEM 1540 
IF F=V THEN 1540 
IF F=W THEN 1540 ELSE 1560 
B=F+42 

U=38: V=38: W=3B 

IF B< 880 THEN IF B>40 THEN GOSUB 1740 
PRINTSR+40," "5 
FOR 1=1 TO Q: NEXT I 
Z=Z-1 s IF Z<0 THEM Z=0 
PRINTS920, Z; 

PRINTS F, " 

PRINTSK, “ " 

PR INTSR, " “ 

PR INT SB, " " 

IF B=R THEM GOSUB 1910 
IF R<760 THEN R=R-40 
IF B=R THEN GOSUB 1910 
IF F=C THEN 1690 
GOTO 1400 
8=0 

IF B=39 THEM IF Q=100 THEN 1370 
IF B=39 THEN IF 0=50 THEM 1360 
IF B=39 THEN IF 0=0 THEN 1350 
GOTO 1380 
B=B+40 

C0L0UR4: PR INT SB, CHR* (136) 

CDL0UR3: RETURN 

SOUND 1,6: S0UND3 , 5 : SGUND5 ,11: 50UND6 , 2 : S0UND7 , 7 : SOUNDB ,31: S0UND9 , 3 1 
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2070 IF B< 240 TUEN B=39 
2080 IF B >880 THEN GOSUB 2360 
2090 F0RI=1TD50*NEXTI 
2 1 00 PR I NTSL+8 1 OHRS (129) 

2110 FORI =1T050: NEXT I 
2120 PRINTSB," " 

2130 IF B >40 THEN B=B+40 
2140 PR INTEL," 

2150 PRINTSL+40, " 

2160 PRINTSL+80, " 

2170 NEXT L 

2180 C0L0UR3: PRINTSL+80, " 1 ™" 

2190 PRINTSL+120, !'■ "CHR*<130) " ■" 

2200 PRINTSL+160, "MM" 

2210 C0LQUR4: PRINTSO, ,1; + : * * Du hast die Stadt gerettet * * *" 

2220 PRINTS80, "Die Stadt bekam" S M? "Tre-f-f er " 

2230 PRINTS680» "Endstand : "5ZS" Punkte" 

2240 IF M<4 THEN 2250 ELSE 2580 
2250 CDLDUR3: PRINTS21B, W" 

2260 PR I NT @259 , " «■" 

2270 PRINTS296, sa ■*" 

2300 PRINTS416, "V ESI ’T' 

2310 PRINTS459, "BW" 

2320 PR I NTS498 , " 

2330 C0L0UR4: PRINTS6GÖ, "Du bekommst das * * Eiserne Kreuz * *" 

2340 BOTO 2580 

2350 SOUNDO, 255: SOUND1 , 15: S0UND2, 255 : S0UND3, 15: S0UND4, 255: SOUNDS , 1 
UND6 , 23 : S0UND7 , 7 : SOUNDB ,31: S0UND9 ,31: SOUND 10,31: SOUND 1 1 , 255 : SOUND 1 
5: SOUND 13, 9: RETURN 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 


C0L0UR3: GOSUB 1770: PRINTSB, "•" 

FOR 1=1 T050 : NEXTI 
IF B=K THEN 2440 
IF B=K+ 1 THEN 2440 
IF B=K+2 THEN 2440 
PRINTSB, " " 

M=M+1 : Z=Z-100 
B=39: RETURN 
G0SUB2350: C0L0UR3 

PRINTS«, " ■■ " 

FOR 1=1 TO 100: NEXT I 
PRINTS«, " 

GOSUB 2350 
PRINTSK-41 , " 

FOR I =1 TO 1 00: NEXT I : G0SUB2350 
PRINTSK-81," 

FOR I = 1 TO 1 00 : NEXT I : G0SUB2350 
PRINTSK-121, " 

PRINTSO, "Jetzt hat es Dich erwischt 
C0L0UR4: PRINTSBO, "Die Stadt bekam ";M;" Tref-fer" 

PRINTS 160V "Der Pilot bekommt den Tapf er kei tsorden " 
PRINTS240, "DÜ bekommst 0 Punkte" 

C0L0UR5:PRINT@920, "Noch ein Spiel ? ( Ja = J / Nein = N ) " 5 

A«« INKEY«: IFA$=" "THEN 2590 

IFA$< >" J "THEN IFA*<>"N"THEN 2590 

IFA$="N"THEN GOTO 2620 ELSE GOTO 1190 

CLS:PRINT@410, "Dann eben nicht" 

PRINTS485, "Vi el ei cht ein anderesmal" 

FOR 1=1 TO 1000: NEXT I 



10 C'4 


14 GENIE DATA 




COLOUR GENIE HARDWARE 

Automatische Cassettenrecordersteuerung 

mit Einbauanleitung DM 24,80 

Colour Genie Joy Stick DM 79,80 

für Spiele, die sonst mit der Tastatur 
gespielt werden 


19.80 

29.80 

36.80 


SOFTWARE-KATALOG 

ANFORDERN! 


Datenrecorder-Probleme? 

Muß nicht sein ! 

Mit unserer Zusatzplatine werden die Daten digitalisiert. 

- In jedem normalen Recorder einzuschleifen I 

Mit Einbauplan Modul DM 98,-- 


Fürdie "Alten" 

Leveimeter Nachrüstsatz kompl. mit Einbau- 
anleitung DM 

Commodore VC 20 + VC 64 
Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt). 

Für alle handelsüblichen Recorder DM 


dito Vers. 2 

mit automatischer Motorsteuerung für den Recorder. 
Versand: Entweder per Nachnahme oder per Vorkasso Mit Bedienungsanleitung 
auf unser Konto 66811 bei der Stadtsparkasse Osnabrück ...... ... „ „ - . ,, 

[blz 26550001 ) L| 9ht Pen für C 64 in Vorbereitung ... 

Bel Bostollungen ab DM 50,- Porto und Vorpackung frei. NDR-Computer-Bausätze bei uns! 


DM 


SCHWARZmarkt 


Wie man immer öfter hört u. liest gibt 
es in Deutschland einen Software 
Schwarzmarkt. Hier wird von Schäden 
in Millionenhöhe gesprochen, die von 
illegalen Programmkopierern verursacht 
werden. Man liest von Verhaftungen, 
Beschlagnahmungen, Schadensersatzkla- 
gen und Gefängnis. 

Wir wollten einmal wissen, was an 
diesen Berichten wahr ist, und ob es 
wirklich so schlimm bestellt ist. 

Also haben wir über Kontaktleute 
Kleinanzeigen veröffentlicht, und die 
Schwarzkopierer aufgefordert, uns ihre 
Tauschlisten zu senden. Und siehe da, 
die Post kaml Die tollsten Colour 


Genie-Programme wurden hier zu Spott- 
preisen angeboten, oder sogar kosten- 
los, nach dem Motto: „Gibst Du mir, 
geb ich Dir I" 

TCS-Programme, Programme der Fa. 
Schmidtke und Programme von uns 
und andere waren hier zu finden. 

Aber nur illegal hergestellte Kopi- 
en, gefertigt in trügerischer Absicht, 
mit einem Status, der in etwa dem von 
Falschgeld entspricht! Ja, der Schwarz- 
markt blüht! Hier wechseln Program- 
me, oftmals für viele tausend Mark, den 
Besitzer, ohne das der rechtmäßige 
Autor, oder die Vertriebsfirma einen 
roten Heller sehen. 


Da sollte man sich als ehrlicher Com- 
puterbesitzer nicht wundern, wenn es 
bald keine neuen Programme mehr 
gibtl Denn wenn auf ein verkauftes 
Programm zehn Raubkopien kommen, 
wird die Programmentwicklung bald 
finanziell uninteressant! Wir sollten 
also alle etwas dafür tun, daß in Zu- 
kunft den Raubkopierern keine Chance 
bleibt! 

Sie, indem Sie keine Raubkopien 
erwerben, 

WIR, indem wir unsere Adressen an 
unseren Anwalt weiterleiten. 

GENIE DATA REDAKTION. 
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Assembler -Teil 6 


Herzlich willkommen, beim 6.Teil 
unseres Assembler- Kurses! Da 
wir vom letzten Mal keine Auf- 
gaben haben, können wir heute 
sofort loslegen. 

Heute lernen wir einen neuen 
Befehl kennen, der es uns er- 
möglicht, relativ einfach Schlei- 
fen zu programmieren. Dpr Be- 
fehl heißt: DJNZ. DJNZ ist 
die Abkürzung für Decrement 
and Jump if Not Zero, was auf 
deutsch etwa heißt: Vermindere 
und spring wenn nicht Null. 

Allein aus diesem Namen kön- 
nen wir schon fast alles ablei- 
ten, was dieser Befehl tut: Er 
vermindert etwas, und springt, 
wenn das Ergebnis nicht Null 
ist. 

Jetzt müßten wir natürlich noch 
wissen, was vermindert wird! 
Antwort: Der Inhalt des Re- 
gisters B. 

Und wohin wird gesprungen? 
Zu einer Adresse oder Sprung- 
marke (Label) die hinter DJNZ 
steht. 

Wir können also eine Schlei- 
fe aufbauen, indem wir eine 
Zahl in das B-Register laden, 
dann unsere Befehle eingeben, 
die in der Schleife abgearbei- 
tet werden sollen und dann 
DJNZ Label verwenden. 

Ein Nachteil dabei ist natür- 
lich, daß solch eine Schleife 
höchstens 256 mal durchlaufen 
werden kann. 

Warum? 

Weil das B-Register höchstens 
eine 8-S teilen lange Dualzahl faßt, 
es hat also 8 Bit. 

Und wie wir wissen, kann man 
mit 8-Bit nur eine Zahl bis zu 
Größe 255 darstellen ! 

Jetzt werden Sie sich zurecht 
fragen, wieso ich eben von 256 
Schleifendurchläufen gesprochen 
habe! 

Also: Wenn ich das B-Regis- 
ter mit Null lade und dann ein 
DJNZ ausführe, wird das B-Re- 
gister um eins vermindert. Da 
keine negativen Zahlen darstell- 
bar sind, ist das Ergebnis 255! 


Jetzt wird bis auf Null herun- 
tergezählt. Das macht also 255 
Durchläufe plus dem ersten ist 
gleich 256! 

Sie sollten in einer Schleife 
das B-Register nicht verändern, 
da das sonst zu einem Absturz 
des Programmes führen kann, 
falls sich hier ein Fehler ein- 
schleicht! 

Jetzt wollen wir uns aber 
einmal das Beispielprogramm an- 
sehen. Colour-Genie-Besitzer ach- 
ten bitte auf die Änderungen 
ab Zeile 240! 

Zeile 100 legt in altbekannter 
Weise den Anfang unseres Pro- 
grammes fest. Genauer gesagt, 
die Adresse, in der das erste 
Byte unseres Programmes abge- 
legt wird. 

In Zeile 110 definieren wir 
den Anfang des Bildschirmspei- 
chers und legen den Wert un- 
ter dem Namen VIDEO ab. 
In Zeile 120 definieren wir den 
Wert, den wir später in's B- 
Register laden, also die Zahl, 
die bestimmt, wie oft unsere 
Schleife durchlaufen werden soll. 

Zeile 140 ruft ein Unterpro- 
gramm im ROM auf, welches 
uns den Code einer gedrück- 
ten Taste in den Akku holt. 

In Zeile 150 laden wir den 
Anfang des Bildschirmspeichers 
in das Registerpaar HL. 

Jetzt laden wir endlich das 


B-Register, mit der Zahl die 
bestimmt, wie oft die Schleife 
durchlaufen werden soll. 

Zeile 170 beginnt mit dem 
LABEL LOOP. Diese Zeile bil- 
det den Anfang unserer Schlei- 
fe und wir verwenden das LABEL 
um diese Zeile später wieder 
anspringen zu können! 

Wir laden hier den Code der 
gedrückten Taste in die Spei- 
cherstelle, auf die HL zeigt. 
Wie wir wissen, ist das ja die 
erste Position unseres Bildschirm- 
speichers. In der nächsten Zei- 
le erhöhen wir den Wert von 
HL um eins, um die nächste 
Bildschirmposition zu erreichen. 

Jetzt kommt DJNZ! Das B-Re- 
gister wird um eins vermindert 
und da es jetzt noch nicht Null 
enthält, wird das Programm beim 
LOOP fortgesetzt. Unser Buch- 
stabe wird also wieder auf den 
Schirm geschrieben und HL wird 
wieder um eins erhöht. 

Das passiert solange, bis B 
gleich Null ist. 

Dann wird Zeile 200 abge- 
arbeitet und das Programm wird 
mit Zeile 140 fortgesetzt. 

Sie müssen also wieder eine 
Taste tippen. 

So, jetzt noch die Aufgabe 
für das nächste Mal ! 

Schreiben Sie bitte ein Pro- 
gramm, das eine Zeile voll T, 
dann zwei Zeilen voll '2' und 


Computerdialog 





per Telefon! 

i , Wir machen Ihren Computer 
N dialogfähig. 

★ Akustikkoppler 

★ Exportmodems 

★ Dialogsoftware 

★ Mailboxsysteme 
für CBM 64, 

Apple, IBM, Epson u.a. 


T elecommunications 
Beate Vollrath Computer 

Bürosysteme: Kirchstr. 28, Tel. 02 09/20 92 91 
Heimcompuler: Kirchstr. 17, 4650 Gelsenkirchen 
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dann drei Zeilen voll '3' auf den 
Bildschirm schreibt. 


Viel Spaß dabei und 



, Happy Assembling"! 



00100 


ORG 7F00H 

ANFANGS-ADRESSE 

00110 

VIDEO 

EQU 3C00H 

FÜR GENIE I 

00120 

LEN 

EQU 128 

2 ZEILEN 

00130 

f 



00140 

START 

CALL 0049H 

ZEICHEN HOLEN 

00150 


LD HL, VIDEO 

HL MIT VIDEO LADEN 

00160 


LD B , LEN 

ZAEHLER FÜR SCHLEIFE 

00170 

LOOP 

LD C HL ) , A 

ZEICHEN AUF SCHIRH 

00180 


INC HL 

NAECHSTE POSITION 

00190 


DJNZ LOOP 

SCHLEIFEN 

00200 


JP START 

SPRINGE NACH START 

00210 


END START 

ENDE UND 

00220 



AUTOSTART 

00230 

1 



00240 

; FÜR COLOUR 

GENIE HEISST ZEILE 110: 

00250 

; VIDEO 

EQU 4400H 


00260 

; UND ZEILE 

120: 


00270 

; LEN 

EQU 80 



Florian Nold 

Wer hat sich denn nicht auch 
schon die Haare gerauft, wenn 
beim Laden von Maschinenpro- 
grammen mal wieder das„C" an- 
statt des in der rechten obe- 
ren Ecke des Bildschirms er- 
schienen ist? Das „C" signalisiert 


einen Fehler beim Laden. In 
Handbüchern u. Bedienungsanlei- 
tungen der Programme steht oft 
nur, daß man den Ladevorgang 
mit einer „geringfügigen Laut- 
stärkekorrektur am 

Cassettenrecorder" wiederholen 
soll. Das bringt in den meisten 
Fällen jedoch nichts. Das Laden 



WKSS8 


an mm 


verzögert sich durch diese schier 
endlose „Fummelei" am Laut- 
stärkeregler nur noch mehr. Ir- 
gendwann packt einen die Wut 
und man verflucht den Programm- 
verkäufer, der einem vermeint- 
lich die defekte Kopie „ange- 


dreht" hat. 

Solche Ladefehler sind sehr är- 
gerlich, doch liegt es meist nicht 
an den Programmverkäufern. Die 
Ursache der Ladefehler liegt bei 
der Tonkopfpositionierung. Es 
kann Vorkommen, daß sich der 


Ton köpf des eingebauten Recor- 
ders mit der Zeit lockert. Dann 
sucht der Tonkopf das Programm 
oberhalb der Tonspur, auf der 
es aufgezeichnet ist. (Skizze 1). 
Bei BAS IC-Programmen macht das 
meist nicht viel aus, da sie besser 
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aufgezeichnet werden. Bei Ma- 
schinenspracheprogrammen hat 
es jedoch oft furchtbare Folgen. 

Mit einem kl. Schraubenzieher 
u. etwas Zeit kann man den Feh- 
ler beheben. Man legt die Cas- 
sette ein u. spult sie bis an den 
Anfang des scheinbar fehlerhaf- 
ten Programms. Nun drückt man 
die PLAY-Taste des Recorders. 
Wenn man nun einen Blick in die 
Aussparung im Recordergejtäuse 
überhalb der Taste für „FAST 
FORWARD" (FF) wirft, sieht 
man die kl. Schraube, die den 


Tonkopf festhält. (Skizze 2). Man 
führt nun den Schraubenzieher 
in die Aussparung ein und dreht 
die Schraube etwas nach links 
oder rechts. Beim Schrauben soll- 
te man aufpassen, daß man nicht 
zu sehr AUF die Schraube drückt, 
weil dadurch der Tonkopf eben- 
falls nach unten gedrückt wird. 
Wenn durch das Drehen der 
Schraube d. Zeiger d. „LEVEL” 
-Anzeige sinkt, muß man in die 
andere Richtung drehen. Wenn der 
Pegel steigt, stimmt die Dreh- 
richtung. Den Drehvorgang an der 


Schraube setzt man solange fort, 
bis der Zeiger den Maximalwert 
erreicht, nachdem er wieder sinkt. 
Man stellt die Schraube auf den 
Maximalwert ein, dreht am „Laut- 
stärkerädchen'' d. Recorders bis 
der Zeiger zwischen den Pegeln 
2 u. 3 ist und spult den Recorder 
wieder zum Beginn d. Programm- 
aufzeichnung zurück. Nun werden 
beim Ladevorgang wahrscheinlich 
keine Fehler mehr auftreten. Ich 
konnte mit der Methode 99% 
der scheinbar fehlerhaften Pro- 
gramme laden. 


SKIZZE 1: 

Fehlerhaftes Laden: 

To»!«', I« Jf-'dfr 

C«it. Tori (orf 


Korrektes Laden: 

•~TotI » off 



imr*,'**** , 
d n rwvtu”» »»rjt- 
tVOtiet >rt. 


T«,kop« Urft in «<«r Ttmipur.n dti 
JaiPr 


SKIZZE 2: 



Recorder 
<SehäM it 


Werner Tödter 


GROSS-klein 


Das folgende kurze Programm be- 
wirkt, daß die Umschaltung von 
Groß- auf Klein-Schrift beim 
Colour Genie wie bei einer 
Schreibmaschine erfolgt, d.h. 
Kleinbuchstaben ohne ,SHIFT', 
Großbuchstaben mit ,SHIFT'. Bei 
allen anderen Zeichen ändert 
sich nichts. 

Funktionsweise des Programms: 

Die Tastaturtreiberadresse in 


401 6H wird durch die Adresse 
TRADR des Unterprogramms er- 
setzt, sodaß bei jeder Tastatur- 
abfrage das Unterprogramm aus- 
geführt wird. Hier wird eine zu- 
sätzliche Rücksprungadresse auf 
dem Stack abgelegt. 

Danach wird zum eigentlichen 
Tastaturtreiber im ROM ge- 
sprungen u. der ASCII-Code der 
gedrückten Taste berechnet. Der 


Rücksprung erfolgt zur Adresse 
BACK, wo die ASCII-Codes von 
„A-Z" in die Codes von „a-z" 
u. umgekehrt umgewandelt wer- 
den. 

Die Eingabe des Programms 
lohnt sich, wenn z.B. in einem 
BAS IC-Programm sehr viele Texte 
geschrieben werden müssen. 

Hier nun das Programm, daß die 
kurze Maschinenroutine erzeugt : 


1 0 DATA 33 ,4t, 67,. 3.4, 22, 64 , 20 1,33,48,67,229,195,227, 3 , 254 
20 DATA 65,216,254,91, 56, 6,254,97,216,254, 123, 208,238,32,201 
30 RESTDRE: FÜR I=&H4322 TQ &H433F 
40 READ W : PQKE I,W 
50 NEXT 
60 CALL 4322 
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Spru ii 



Der große Programmierer-Wettbewerb für alle 
Genie I, II, III, TRS 80 Mod.1 und Colour Genie Besitzer. 
Machen Sie mit - Gewinnen Sie mit! 






Unser letzter Wettbewerb hat bei 
unseren Lesern großen Anklang 
gefunden. So groß, daß wir heu- 
te einen neuen Wettbewerb star- 
ten. 

Diesmal können auch Colour 
Genie Benutzer mitmachen, weil 
wir zwei Wertungskategorien ein- 
richten. Einmal werden alle Co- 
lour Genie Lösungen gewertet und 
einmal alle Lösungen der Genie 
Computer. 

Es wird diesesmal auch zwei 
erste Preise geben, einen für den 
Colour Genie Sieger und einen für 
den Genie Sieger. 

Und die ersten Preise können 
sich sehen lassen! Auf die Sieger 
wartet je ein Creativision Tele- 
spiel-Computer, mit folgenden 


S' e . 




technischen Daten. 

— 16 Farben, 

— hochauflösende Grafik, 

— 256 x 192 Punkte, 

— 28x24 Zeilen Textdarstellung, 
-4 Kanal PSG, 

— 6502 A Prozessor, 2 MHz Takt, 

— 19 K RAM. 

Das Gerät ist erweiterbar zum 
kompletten Home-Computer und 
bietet dann 48 K RAM, Floppy- 
Disc, Drucker, Basic usw. 

Und hier die Aufgabe: 

Stellen Sie sich ein Schachbrett 
mit 8x8 Feldern vor. Auf ein be- 
liebiges Feld wird nun ein Sprin- 
ger gesetzt. Dieser Springer muß 
jedes Feld des Brettes genau ein- 
mal betreten. Also kein Feld darf 
zweimal betreten werden und kei- 





nes darf ausgelassen werden. Ihr 
Programm soll nun die Züge für 
den Springer berechnen, der 
fahren darf, wie im normalen 
Schachspiel, also ein Feld vor und 
zwei zur Seite oder zwei Felder 
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vor und eins zur Seite. 

Dabei muß das Schachbrett und 
der Springer auf dem Bildschirm 
zu sehen sein. Ein Feld, das be- 
reits betreten wurde, muß auf dem 
Bildschirm kenntlich gemacht wer- 
den. Außerdem muß Ihr Pro- 
gramm am Anfang die Eingabe- 
möglichkeit für ein Startfeld ha- 
ben. Diese Eingabe erfolgt in der 
üblichen Schachnotation, also z. 
B. E5. Sollte Ihr Springer ein 
Feld zweimal betreten oder sollte 
sich Ihr Programm nicht laden las- 


sen, wird ihr Programm disquali- 
fiziert! 

Überprüfen Sie also Ihre Casset- 
te vor dem Einsenden ! 

Programme dürfen nur auf Cas- 
sette geschickt werden. Ausnah- 
me: 

Genie III Programme! 

Diese können auf Diskette ge- 
schickt werden, aber da das Genie 
1 1 1 doppelt so schnell läuft wie ein 
Genie I oder II, werden die Genie 
1 1 1 -Zeiten verdoppelt. Die Zeit 
wird ab der Eingabe des Startfel- 


des genommen, und gestoppt, 
wenn alle Felder betreten wurden. 
Das schnellste Programm gewinnt ! 

Ihre Lösung muß bis zum 
1.11.1984 bei uns eingehen, um 
gewertet zu werden. 

Der Rechtweg ist ausgeschlos- 
sen! 

Wir hoffen, daß wieder genau- 
soviele Lösungen eingehen, wie 
beim Maus-Wettbewerb, und wün- 
schen Ihnen viel Spaß! 



SUCHE VG.-Disk.-Station 
E. Knobelspieß, Gartenstr.31 
7750 Konstanz. 


WIENER sucht Partner 
für Programmtausch - Tape / 
Disk usw. CG. Werner Kam- 
per, Wien 23, Pölleritzergas- 
se 23/1/2/28 (PLZ 1230). 


SUCHE Kontakte zu As- 
sembleranfängern (Masch.- 
Progr.) - Wer hat noch Genie 
Data Nr. 1 u. 2? 

Tel. 0228/224353. 


32 K-COLOUR GENIE + 
Software + Cassettenrec. + 
Bücher verkauft Knud Hansen 
Waldeck 4, 2300 Kiel 1, 
Tel. 0431/522064, VB 900,-. 


SUCHE C.G. -Floppy 
U. Mast, W.-Maybachstraße 9, 
7303 Neuhausen. 


COLOUR GENIE EG 2000 
32 K Ram, Rec., Literatur, 
Software, Preis um 750,- DM 
Tel. 0541/122901. 


TRS 80 Pgm.-Tauschliste an 
Nimzik, Himmelgeister 19 
4047 Dormagen 5 


VERKAUFE TRS 80 I, 48K, 
Umlaute/Kleinschr., Drucker 
DMP 100, 

floppy Double Dens., NEW- 
DOS 80/2 - GDOS, Assemb- 
ler, versch.Software, Litera- 
tur, für 4000,- DM. Peter 


Steinz, Allendorfer Str. 40, 
6000 Frankfurt 50. 


WER schreibt mir gg. Ver- 
gütung ein Listschutz-Progr. 
für CG? H. Schumacher, 
Eichstr. 40, 42 Oberhausen. 


SUCHE preisw. Literatur zu 
Z 80 Masch. -Programmierung 
u. alles über CG, Drucker 
usw. H.-J. Winterscheid, Ben- 
nauerstr. 1, 5300 Bonn 1. . 


COLOUR GENIE 32 K mit 
Floppy, Literatur u. viel Soft- 
ware u. Sonstiges. NP 2.600,- 
für 1.800 VB / Tel. 02207 
3391. 


VERKAUFE CG-Floppy VB 
900,- DM. A. Kleinschmidt, 
18-20 Uhr, 07731/23909, 
Singen. 


GENIE I-Progr. auf Cassette 
zu verk.l Alles m. Beschrei- 
bungen Liste anf.l Hires- 
Grafic - Monitore usw. usw. 
Billig! M. Schuster, Pfauen- 
str. 11, 7920 Heidenheim. 


PROGR. Eproms (nicht nur 
CG), -,50/lkByte + Porto. 
Tel. 040/7213696 


CG: ROBOT 20,-DM, Su- 
peraction H. Kristen, Hauns- 
pergerstr. 11, 8229 Laufen. 


SUCHE guten Tauschpartner 
für VG .- Interessenten. 


Bitte anrufen. 02129/4891 
ab 18 Uhr. Wer hat Hambur- 
gersam + Pinguin? 


COLOUR GENIE Super- 
Forth, Info 0,80DM M.Mai- 
ers, Am Hang 1, 2352 Bor- 
desholm 


VERKAUFE CG-Software, 
W. Kutter, lllerstr. 18 
8961 Wiggensbach 


VERKAUFE f. Genie 3003 
Video u. CPU-Platine sowie 
Tastatur + EG 3014/Div. 
Kabel/SW-Monitor 
Tel. 05127/879. 


VERKAUFE CG-Software 
wegen Aufgabe. Info g. Rück- 
porto, H.J. Berg, Sonnen- 
str. 153, 5600 Wuppertal 2. 


VERKAUFE Colour Genie 
32 K + Software, Bücher, 
P. Gerke, 0551/77887. 

SUCHE Macro-80 für VG I. 
Kauf o. Tausch, Weinstein, 
0721/685366 

WEGEN Umstieg verkaufe ich 
Genie I m. vielen Progr. 
u. Büchern, Monitore, Progr. 
a. Cassette u. Disk., alles sel- 
bstverständl. m. Handbüchern 
u. Beschreibungen. Liste gra- 
tis! M. Schuster, Pfauenstr.11 
7920 Heidenheim. 


SUCHE CG-Software, Peter 


Bluhm, Anthurienweg 1 1 , 
4700 Hamm 4. 

SUCHE defekte Genie l+ll. 
P. Spieß, 8859 Rennertsho 
fen 1. 


Die nächste 
GENIE DATA 
erscheint am 
1.12.1984. 

Anzeigen- 
Annahmeschluß 
ist der 
6.11.1984 

In der nächsten 
GENIE DATA 
finden Sie unter 
anderem : 
Start der Serie 
Kampf den 
Spaghetti, 
Spooler, 
Basic-Toolkit, 
Genie 16 
Software. 
Und vieles 
andere. 

























Laser 

HOME-COMPUTER 


2 Joysticks mit Interface 59,- DM 

Coleco Adapter 218,-- DM 

Disk-Controller mit Disketten Laufwerk 698,-- DM 

Software-Paket {5 Cassetten) 89,- DM 


LASER 210/310 HOME COMPUTER 

LASER 210 Color Home Computer 299,- DM 

LASER 310 Color Home Computer, 18K RAM 399,- DM 
16K RAM Expansion 149,- DM 

16K RAM Expansion für LASER 310 149,- DM 

64 K RAM Expansion für LASER 210/310 298 - DM 

Drucker Interface für LASER 210/310 98,- DM 

2 Joysticks incl. Interface für LASER 210/310 75,- DM 

Lightpen für LASER 210/310 68,- DM 

Disk-Controller mit Disketten Laufwerk 
für LASER 210/310 648,- DM 

ROM-Listing LASER 210/310/VZ 200 55,- DM 

PP 40 4-farb Printer Plotter 549,- DM 

PAKET 1 , bestehend aus : 

LASER 210 + 16K RAM + Controller u, Floppy Disk + 2 
Joysticks nur DM 1098,-! ! I 

PAKET 2, bestehend aus . 

LASER 210 + 64K RAM + Controller u. Floppy Disk + 
Drucker Interface + PP 40 Printer Plotter 

nur DM 1798,-1 II 


LASER 2001 HOME COMPUTER 

LASER 2001 Color Computer 
16K RAM Steckmodul 
Drucker-Kabel 


LASER 3000 PERSONAL COMPUTER 

— Apple*-Software kompatibel — CP/M** Software kom- 
patibel (mit Z 80 Erw.) — 64 K RAM (erweiterbar bis auf 
192 K RAM) — 32K Microsoft*** Basic - 40 oder 80 Spal- 
ten Textdarstellung — Centronics Schnittstelle — 4 Kanal 
Geräuschgenerator — 592x192 Bildpunkte mit 6 Farben - 
280x192 Bildpunkte mit 8 Farben - 81 Tasten - Video, 
RGB odei TV Ausgang - 6502A CPU mit 2 MHz Takt - 
viel Peripherie lieferbar 

LASER 3000 Personal Computer 1698,- DM 

Floppy-Controller für 2 Laufw. 218,- DM 

Floppy Laufw. FD-100 598,- DM 

TV Interface PAL 76,- DM 

Drucker Kabel PI-40 75,- DM 

Z 80 Steckmodul 245,- DM 

RS-232 Interface 198,- DM 

2 Joysticks 79,- DM 

CP/M** Diskette u. Manual (Vers. 2.2) 748,- DM 

Soft Emulator Platine 245,- DM 

Soft Emulator Steckmodul 245,-- DM 

128K RAM auf Anfrage 

RGB-Monitor-Kabel 38,- DM 

DOS 3.3, Disk mit Handbuch 79,- DM 

Technical Reference Manual 29,- DM 

LASER DOS 1, System Disk 79,- DM 


* Apple = elngotr. Warenzeichen von Apple Computer Inc. 

** CP/M = elngotr. Warenzeichen von Digital Research Inc. 

*•* Microsoft = elngotr. Warenzeichen von Microsoft Inc., USA 


Für alle hier angebotenen Rechner ist viel Software liefer- 
bar. Informieren Sie sich I ! I 

Bestellungen an: 

598." DM RALF M. HÜBBEN, MÜHLBACHSTRASSE 2, 5429 
218,- DM MARIENFELS/TS. 

69,- DM VERLAG FÜR COMPUTERTECHNIK 
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Sprachausgabe 


Nach der letzten GENIE 
DATA, in der wir das Colour 
Genie zum sprechen brach- 
ten, haben wir eine Vielzahl 
von Anrufen und Briefen er- 
halten. Es wurde bemängelt, 


daß man die Sprach-Routine 
nicht ohne weiteres mit ei- 
nem normalen Assembler ein- 
geben konnte. Deshalb haben 
wir das Programm so geän- 
dert, daß es problemlos per 


Assembler eingetippt werden 
kann. Die Erläuterungen zum 
Programm finden Sie in der 
letzten GENIE DATA. 


0000 

0048 

10 

ORG 

4800H 

4800 

F3 

20 

DI 


4801 

21FFBF 

30 

LD 

HL , 0BFFFH 

4804 

0608 

40 

LD 

B.08H 

4806 

DBFF 

50 

IN 

A, C0FFH) 

4808 

CB47 

60 

BIT 

0, A 

480 A 

2804 

70 

JR 

Z , 48 1 0H 

480C 

00 

80 

NOP 


480D 

37 

90 

SCF 


480E 

1803 

100 

JR 

4813H 

4810 

A7 

110 

AND 

A 

481 1 

1800 

120 

JR 

4813H 

4813 

CB 1 E 

130 

RR 

CHL) 

4815 

3AFF47 

140 

LD 

A , C47FFH) 

4818 

3D 

150 

DEC 

A 

4819 

20FD 

160 

JR 

N2 , 48 1 8H 

481B 

05 

170 

DEC 

B 

48 1 C 

2807 

180 

JR 

Z , 4825H 

481 E 

00 

190 

NOP 


481 F 

DD7E00 

200 

LD 

A , C IX+00H5 

4822 

00 

210 

NOP 


4823 

18E1 

220 

JR 

4806H 

4825 

2B 

230 

DEC 

HL 

4826 

7C 

240 

LD 

A , H 

4827 

FE62 

250 

CP 

62H 

4829 

20D9 

260 

JR 

NZ , 4804H 

482B 

FB 

270 

EI 


482C 

C3191A 

280 

JP 

1A19H 

48.2F 

0049 

290 

ORG 

4900H 

4900 

F3 

300 

DI 


4901 

21FFBF 

310 

LD 

HL , 0BFFFH 

4904 

0608 

320 

LD 

B , 08H 

4906 

4E 

330 

LD 

C , (. HL ) 

4907 

CB1 9 

340 

RR 

C 

4909 

3805 

350 

JR 

C , 4910H 

490 B 

00 

360 

NOP 


490C 

3E00 

370 

LD 

A , 00H 

490E 

1804 

380 

JR 

4914H 

4910 

3E0F 

390 

LD 

A.0FH 

4912 

1800 

400 

JR 

4914H 

4914 

D3F9 

410 

OUT 

C0F9H) ,A 

4916 

3AFF47 

420 

LD 

A, C47FFH) 

4919 

3D 

430 

DEC 

A 

49 1 A 

20FD 

440 

JR 

NZ , 4919H 

49 1 C 

05 

450 

DEC 

B 

491 D 

2806 

460 

JR 

Z, 4925H 

49 1 F 

00 

470 

NOP 
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DM 


CRSATlVlSION 


CREATIVISION: Das intelligente Video- 
spiel - Der Homecomputer. 

CREATIVISION ist ein Telespiel der drit- 
ten Generation, was für Sie heißt: Tech- 
nisch Top! Mit CREATIVISION erhalten 
Sie ein Gerät, daß schon über Speicher und 
Tastatur verfügt. Nur noch die Basic-Cas- 
sette einstecken, und Sie haben einea pro- 
grammierbaren Computer. Floppy-Disc und 
Drucker können Sie auch benutzen! Und in 
der Grundversion haben Sie ein faszinie- 
rendes Telespiel, das keine Wünsche offen 
läßt! Mit vielen tollen Spielen! 

Und hier die Preise: 

Creativision, Grundgerät'*' nur 249, — DM 
Daten-Recorder 178, — DM 


Basic Interpreter 1 , 

Große Tastatur 98,— DM 

Drucker Interface 159,— DM 

Basic Interpreter I! 148, — DM 

Spiele auf ROM-Modul 

Tank Attack, Sonic Invader, Tennis, Auto 
Chase, Police Jump, Air Sea Attack, Cra- 
zy Chicky, Deep Sea Adventure, Mouse 
Puzzle, Astro Pinball, Chopper Rescue, 
Locomotive per Stück nur 89,— DM 

Lieferbar nur solange Vorrat reicht! Be- 
grenzte Stückzahl! 

Sofort bestellen bei: Ralf M. Hübben, Ver- 
lag für Computertechnik, 5429 Marien- 
fels/Ts. 


MOUSE PUZZLE 


* Lieferumfang: Creativision-Grundgerät, 2 Joysticks mit Tastatur, Netzteil, 
TV-Anschluß, Anleitung 

Daten: 16 Farben, 256x192 Punkte, 28 Zeilen mit 24 Zeichen, 3 Tonkanäle, 1 
Rauschkanal, 6502A CPU mit 2 MHz Takt. 19K RAM 


m 
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4920 

DD7E00 

480 

LD 

A, < IX+00H) 

4923 

18E2 

490 

JR 

4907H 

4925 

2B 

500 

DEC 

HL 

4926 

7C 

510 

LD 

A,H 

4927 

FE62 

520 

CP 

62H 

4929 

20D9 

530 

JR 

NZ , 4904H 

492B 

FB 

540 

EI 


492C 

C9 

550 

RET 


492D 

004A 

560 

ORG 

4A00H 

4A00 

F3 

570 

DI 


4A0 1 

DBFF 

580 

IN 

A , C0FFH ) 

4 A03 

CB47 

590 

BIT 

0 > A 

4A05 , 

2808 

600 

JR 

Z , 4A0FH 

4A07 i 

00 

610 

NOP 

- 

4A08 

3E0F 

620 

LD 

A , 0FH 

4A0A 

D3F9 

630 

OUT 

(0F9H) , A 

4A0C 

C3014A 

640 

JP 

4A01H 

4A0F 

3E00 

650 

LD 

A , 00H 

4A11 

C30A4A 

660 

JP 

4A0AH 

4A14 


670 

END 

1A19H 



ASSENBL I ERT UON COLOUR GENIE SUPER-ASSEN 



Zunächst möchten wir von der 
GENIE DATA uns bei allen, die 
an unserer Fragebogen-Aktion 
mitgemacht haben recht herzlich 
bedanken! 

Wir haben jeden ausgefüllten 
Bogen ausgewertet, und werden 
versuchen, uns in den kommen- 
den Ausgaben verstärkt nach 
Ihren Wünschen zu richten, da- 
mit die GENIE DATA Ihnen in 
Zukunft noch besser gefällt. 

So, jetzt hier die Ergeb- 
nisse der Auswertung. 

Zunächst einmal die Frage nach 
den Computern, die Sie besit- 
zen, die Verteilung sieht wie 
folgt aus Genie I + II = 26%, 
Genie II! = 4,3%, Colour Ge- 
nie = 60,8%, TRS80 Mod. 1 
= 8,6% und 4,3% besitzen einen 
anderen Tandy. Als familien- 
fremde Computer wurden die 
verschiedensten genannt, aber nur 
hin und wieder mal einer. Im 
großen und ganzen zeichnet sich 
hier eine große Systemtreue der 


GENIE DATA- Leser ab. 

Und womit befassen sich die 
GENIE DATA - Leser am mei- 
sten? 

52,1% mit Hardware, 65,2% mit 
Spielen, 60,9% mit Geschäfts- 
programmen und 69,6% mit ande- 
rer Software. 

Jetzt zur Peripherie: Hier hat 
uns sehr erstaunt, daß offenbar 
mehr Leser einen Drucker haben, 
als eine Oiskettenstation. Wir wer- 
den also in Zukunft einige Pro- 
gramme mehr bringen, die sich 
mit Druckern befassen. Die Ver- 
teilung im einzelnen sieht wie 
folgt aus. 

Drucker: 56,5%, Floppy Disk: 
39,1%, Light Pen: 8,9% und 
Joysticks. 34,8%. 

Da 65,2% der GENIE DATA - 
Leser gerne Erweiterungen für 
ihren Computer basteln, werden 
wir uns hiermit in Zukunft auch 
etwas mehr befassen I 

WIR MÖCHTEN NUN ALLE 
BASTLER AUFRUFEN, ÜBER 


IHRE SELBSTBAUTEN ARTI- 
KEL ZU SCHREIBEN, und uns 
diese zu schicken! 

Bei der eingesetzten Software 
gab es für uns eine Riesenüber- 
raschung. Wir waren natürlich 
davon überzeugt, daß Spiele hier 
der absolute Renner wären, aber 
weit gefehlt! Sehen Sie sich die 
Verteilung an : 

Spiele = 69,6%, Textverarbei- 
tung = 73,9%, Fibu = 13,0% und 
Kalkulation = 30,7%. 

Anregungen und Ideen wurden 
uns etliche mitgeteilt. Einige Gute 
und einige Schlechte. Wir hof- 
fen, daß Sie Verständnis dafür 
haben, daß wir hier nicht alle 
aufzählen können. Wir werden 
aber die guten Ideen verstärkt 
in unsere Arbeit einfließen las- 
sen und der eine oder andere 
Einsender wird bald seine Idee 
verwirklicht finden. 

GENIE DATA REDAKTION 
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CK 


Catharina Stodden 

Shift- 

Programme, um den Klein- 
schriftmodus bei den Genie- 
Computern Genie I, Genie II 
und Colour Genie umzudre- 
hen, gibt es ja eigentlich ge- 
nug. Warum noch mal das 
gleiche Thema? Erstens, um 
einmal zu verdeutlichen, wa- 
rum und wie es eigentlich 
kommt, daß die Genie-Com- 
puter in der Grundversion auf 
einfachen Tastendruck groß, 
bei Shift und Taste erst 
kleinschreiben und zweitens, 
um einige Hilfen zu geben, 
dieses leidige Softwareprob- 
lem anzugehen. 

Der Leser hat richtig 
verstanden. Es handelt sich 
nicht etwa um ein Problem 
der Hardware (das könnte 
man ja noch verstehen!), son- 
dern um die Software im 
ROM (dem Betriebssystem 
des Computers). Nimmt man 
sich nämlich ein ROM-Listing 
zur Hand, in dem das Be- 
triebssystem ausführlich auf- 
gelistet und erklärt ist, so 
können sich einem manchmal 
die Haare sträuben, wie 
gewisse Betriebsroutinen an- 
gelegt sind. 

Es scheint, daß einige 
Softwarelösungen mit Absicht 
so geschrieben wurden, daß 
dem sehr ernsten Anwender 
(z. B. Textverarbeiter) später 
nichts anderes übrig bleibt, 
als auf die Erweiterungen für 
den Computer zurückzugrei- 
fen, um kleine, aber manch- 
mal doch sehr störende 
Eigenheiten des Systems wie- 
der auszubügeln. Dies gilt 
auch in gewissem Maße für 
die Hardware eines Compu- 
tersystems, wie beispielswei- 
se mein Artikel in der GENIE 
DATA Nr. 4 zeigt. Mit einem 
wirklich minimalen Aufwand 
wird hier der Einbau von vier 


weiteren Tasten in die Tasta- 
tur beschrieben, so daß sich 
die deutschen Umlaute direkt 
erreichen lassen. 

Doch nun zurück zu unse- 
rem eigentlichen Thema. Für 
die, die über kein ROM-Li- 
sting von einem der drei Ge- 
nie-Computer verfügen, 

möchte ich grob auf die Ta- 
staturabfrage bei den oben 
genannten Systemen 

eingehen. Das Prinzip ist für 
alle drei Systeme gleich. 
Dies ist nicht verwunderlich, 
da der Genie I und der Genie 
II direkte Nachfahren 
(Kopien) des guten alten TRS 
80 Computers sind. Dieser 
Computer hat auch in 
Deutschland ein Stück Micro- 
computer-Geschichte mitge- 
schrieben und zählt eigent- 
lich längst zu den Veteranen 
der Microcomputer. Dank 
seines guten Konzepts (vor 
allem seiner Software) 
erlebte er in den Genie-Com- 
putern eine Renaissance, die 
sein Betriebssystem fast un- 
verändert übernahmen und 
lediglich eine bessere Hard- 
ware darumbauten. Leider 
wurden allerdings auch viele 
Schwächen des Betriebssy- 
stems mit übernommen. 

Eine Weiterentwicklung 
des Betriebssystemes stellt 
das ROM des Colour Genie 
dar. Bei Vergleich der ROM's 
des Colour Genie und des 
Genie I oder II ergibt sich, 
daß das Colour Genie fast 
die gleichen Adressen der 
einzelnen Routinen benutzt 
wie seine „Brüder". Besonders 
auffallend ist dies bei den 
Befehlen Set und Reset. Sie 
befinden sich bei allen drei 
Systemen im ROM an fast 
der gleichen Stelle. Während 
bei Genie I und II der Befehl 


für das Setzen, bzw. 
Rücksetzen, eines Grafik- 
punktes verantwortlich ist, 
bewirken sie beim Colour 
Genie das Setzen, bzw. 
Rücksetzen eines Bits in ei- 
ner bestimmten Adresse. 

Auch das Prinzip und der 
Aufbau der Tastaturabfrage 
ist bei allen drei Systemen 
fast identisch. Der jeweilige 
Computer trennt die Tasten 
nach Buchstaben, Ziffern und 
Sonderzeichen und nach Kon- 
trolltasten. In jeweils geson- 
derten Teilprogrammen wird 
der zugehörige ASCII-Code 
errechnet und einem Register 
der CPU (Zentraleinheit = 
Mikroprozessor) zur weiteren 
Verarbeitung übergeben. So 
steht der ASCII-Code der je- 
weiligen Taste am Ende im 
sog. Akku (Register A der 
CPU). 

Bei der Behandlung von 
Buchstaben wird es jetzt 
endlich für unser Ausgangs- 
problem interessant. 

Hier erfolgt nämlich eine 
Abfrage, ob zu dem gedrück- 
ten Buchstaben auch die 
SHIFT-Taste betätigt wurde. 
Und siehe da, bei gedrückter 
SHIFT-Taste wird der sog. 
„Lower Case" erzeugt, was 
nichts anderes bedeutet, als 
daß der ASCII-Code eines 
Kleinbuchstaben erzeugt 

wird. Bei nicht betätigter 
SHIFT-Taste hingegen wird 
Großschrift erzeugt. 

Hier fragt man sich zu- 
recht, warum dies so sein 
muß. Kann man denn diese 
Routine nicht so anlegen, daß 
bei SHIFT Großschrift er- 
zeugt wird? 

Man kann! Nämlich durch 
die Abänderung eines Maschi- 
nensprachebefehls. Hierdurch 
wird die oben erklärte Abfra- 
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ge umgedreht, sodaß der „Lo- 
wer Case" jetzt ohne SHlFT- 
Taste erzeugt wird. 

Aber wie kann man ein 
doch unveränderliches ROM 
abändern? 

Hier sind die Besitzer ei- 
nes EPROM-Programmierers 
gut dran. Denn EPROM's 
(löschbare Festspeicher) las- 
sen sich nach belieben ändern 
und anstelle der ROM's in 
den Genie Computer einset- 
zen. Der EPROM-Typ für 
alle drei behandelten Compu- 
ter ist ein 2532-EPROM. 

Es handelt sich um einen 4 
KByte Speicher, von dem 
sich im Colour Genie vier, 
im Genie I und II jeweils drei 
befinden. 

Für die Programmierung 
geht man am besten folgen- 
dermaßen vor: 

Die entsprechende Stelle, 
die geändert werden muß, 
befindet sich bei allen drei 
Genies im ersten ROM. 

- Bei Genie I, II auf Adresse 
0418H 

- Beim Colour Genie auf 
Adresse 044CH 

Auf dieser Adresse befin- 
det sich der Wert 30 H bzw. 
48 dez. Er verzweigt das 
Programm, wenn keine 
SHIFT-Taste gedrückt ist. 
Dieser Wert, übrigens auf al- 
len drei Systemen gleich, 
muß in 38 H bzw. 56 dez. 
umgewandelt werden. Jetzt 
verzweigt das Programm bei 
gedrückter SHIFT-Taste, d. 


h., die Abfrage wurde ein- 
fach umgekehrt. Kleine Ver- 
änderung - große Wirkung! 

Am besten schreibt man 
zu Beginn der Prozedur in ei- 
nen freien Speicherplatz des 
RAM (Benutzerspeicher) den 
Wert 38 H bzw. 56 dez. mit- 
tels Poke-Befehi. Günstig ist 
es dabei, wenn diese Spei- 
cherstelle vorher geschützt 
ist, damit dieser Wert nicht 
durch irgendwelche Umstände 
verlorengeht. Dann wird das 
ROM 1 bis zu der Adresse in 
ein EPROM 2532 kopiert, die 
vor dem zu ändernden Byte 
steht. Die nächste EPROM- 
Adresse wird mit dem Wert 
38H aus der RAM-Speicher- 
zelle programmiert. Der Rest 
des EPROM's wird wieder 
mit dem entsprechenden Teil 
aus dem ursprünglichen ROM 
programmiert, sodaß an- 
schliessend im EPROM eine 
genaue Kopie der ersten 4 
KByte des ROM's steht, mit 
Ausnahme der einen Adresse. 

Das EPROM sollte erst 
dann für das jeweilige ROM 
in das Gerät eingesetzt wer- 
den, wenn alle Adresseninhal- 
te überprüft worden sind. Die 
meisten EPROM-Program- 
mierer gestatten dies. Nach 
dem Einbau kann wie bei ei- 
ner normalen Schreibmaschi- 
ne mit der SHIFT-Taste 
groß- ansonsten klein ge- 
schrieben werden. Auf die 
Erkennung von Basic-Befeh- 
len hat diese Umkehrung kei- 


nerlei Einfluß, da das Be- 
triebssystem der Genie-Com- 
puter intern alle Kleinbuch- 
staben, die nicht in Anfüh- 
rungszeichen stehen, in Groß- 
buchstaben umwandelt. Um 
dies zu Veranschaulichen, ge- 
ben Sie im Direktmodus fol- 
gendes ein: 

>10 goto 100 

Wichtig! Das „goto" muß 
klein geschrieben sein. 

Nun listen Sie das Minipro- 
gramm! Es erscheint nun: 

10 GOTO 100 

Wie man sieht, ist das „goto" 
jetzt groß geschrieben. Co- 
lour-Genie-Besitzer müssen 
sich allerdings daran ge- 
wöhnen, daß auch die Funkti- 
onstasten, die auch als Buch- 
staben behandelt werden, 
umgedreht sind. 

Übrigens finden sich im 
Betriebssystem des Colour- 
Genie an einigen Stellen 
Freiräume, in die eventuell 
kleine eigene Routinen Platz 
finden könnten. Weiterhin 
könnte man bestimmte 
Adressen des Betriebssyste- 
mes abändern, um bestimmte 
Effekte nach dem Einschal- 
ten des Gerätes zur Verfü- 
gung zu haben. 

Sie sehen, ein Blick in ein 
ROM-Listing lohnt sich. 

Ich hoffe, ich konnte ei- 
nige Anregungen bieten, und 
zeigen, daß auch in der 
Grundversion eines Compu- 
ters mit oftmals geringen 
Mitteln einiges erreicht wer- 
den kann. 
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Ab sofort finden Sie in der GENIE 
DATA auch Programme für Genie 
16. Den Anfang machen wir in 
dieser Ausgabe mit zwei Listings. 
Das Erste (3D-Grafik) erzeugt den 
Funktionsplott einer Funktion 
dreidimensional auf dem Bild- 
schirm. Das Zweite (Der Hummel- 
flug} spielt das gleichnamige Lied 
von R. Korsakov vermittels des 
PLAY-Befehls. 

Gleichzeitig möchten wir alle 
Genie 16 Besitzer zum Mitmachen 
anregen. Wenn Sie Programme 
oder Tips haben, schicken Sie die- 
se an uns ! Honorar pro gedruckte 
Seite: 50,- DM. 



CLS 

KEY OFF : SCREEN 1,0:F=2 
ON ERROR GOTO 1800 
LINE C0 ,0)-C0 , 199) ,2 
LINE C0 ,0)-C319,0) ,2 
LINE C319,0)-(319, 1 99 ) , 2 
LINE C 31 9 , 1 99) -C 0 , 1 99 ) , 2 
FOR D=-3 TO 3 STEP .25 
FOR E=-3 TO 3 STEP .05 
) A=D:B=E 

) C=5* C CSIN(A A 2+B A 2) ) /(A A 2+B A 2) ) 

) IF 0=0 THEN F= 1 
) IF 0=2 THEN F=3 
) U= . 52 : U= . 3 
) X=COS (U)*A+SINCU)*B 

I Y=COS CU) * C COS ( U ) *B-S IN(U)*A)+SIN(U)*C 
) PSET C 160+X*30 ,90-Y*28) ,F 
) F=2 

) NEXT E : NEXT D 
)0 RESUflE 


Hummelfl 



10 GLS 

15 PLAY "tl 80 ” 

18 PLAY "ml” 

20 PRINT”Der Hummelflug” 

30 READ A$:IF A$< >”ueiter" THEN PLAY A$ 

31 IF ft$="ueiter" THEN RESTORE :'PL=PL+1 

32 IF A$="ue i ter "THEN IF PL=2 THEN END 
10 GOTO 30 

1000 DATA «15,0-16,016,0 1 6 , d 1 6 , d- 1 6 , c 1 6 , o3 , bl 6 
1010 DATA o4 , c 1 6 , o3, b 1 6 , b- 1 6 , a 1 6 , a- 16,gl6,g-16,fl6 
1020 DATA e 1 6 , e- 1 6 , dl 6 , d- 16 , d 1 6 , d- 16 , cl 6 , o2 , bl 6 
1030 DATA o3 , c 1 6 , o2 , b 1 6 , b-1 6 , al 6 , a-16 ,gl6,g-16,fl6 
1040 DATA el6,e-16,dl6,d-16,dl6,d-16,cl6,ol ,bl6 
1050 DATA o2 , el6 , e- 1 6 , d 1 6 , d-1 6 , d 16 , d- 16 , c 1 6 , ol ,bl6 
1060 DATA o2 , e 1 6 , 6-16 , d 16 , d-1 6 ,cl6,fl6,el6, e- 16 
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1070 DATA e 16 , e- 16,dl6,d— 16,cl6,c+16,dl6,d+16 
1080 DATA el6,e— 16,dl6,d-16,cl6,fl6,el6, e— 1 6 
1090 DATA el6,e-16,dl6,d-16,cl6,c+16,dl6,d+16 
1100 DATA e 1 6 , e— 1 6 ,dl6,d-16,dl6,d-16,cl6,ol,bl6,o2 
1110 DATA cl6,c+16,dl6,d+16,el6,fl6,el6,e-16 
1120 DATA el6,e-16,dl6,d-16,dl.6,d-16,cl6,ol ,bl6,o2 
1130 DATA cl6,c+16,dl6,d+16,el6,f 16, f +16, g+16 
1140 DATA al6,a-16,gl6,g-16,fl6,bl6,al6,a-16 
1150 DATA al6,a-16,gl6,g-16,f 16, f +16,gl6,g+16 
1160 DATA al6,a-l6,gl6,g-16,f 16, b-16, al6, g+16 
1170 DATA al6,a-16,gl6,g-16,f 16,f +16,glG,g+lG 
U80 DATA al6,a-16,gl6, g-1 6 , g 1 6 , g- 16,fl6,el6 
1190 DATA f 16, fj+16,gl6, g+16, al6, b-16, al6, g + 16 
1200 DATA a 1 6 , a- 16 , gl 6 , g- 1 6 , g 1 6 , g- 16 , f 1 6 , el 6 
1205 DATA ms 

1210 DATA f 16, f +16, gl6, g+16, al6, b-16, al6, g+16 
1220 DATA o3 , a 16 , o2 ,al6,ol ,al6, o2 ,al6,ol ,al6, o2 ,al6,ol ,al6, o2 , a 1 6 
1 230 DATA o 1 , b— 1 6 , o2 , a 1 6 , ol , b-16 , o3 ,b-16,ol,b— 16,o2,al6,ol,b— 16, o3, b-16 
1240 DATA al6 , a 1 6 , ol , al6 , o3, a 16 , ol , al6 , o3 , al6 , ol , al6 , o3 , a 16 
1250 DATA ol,b-16,o3,al6,ol , b-16, o4, b-16, o.l , b-16, o3,a 16, ol ,a!6,o4, b-16, 
ml 

1260 DATA al6,pl6,p8,o3,al6, b-16, al6, g+16 
1270 DATA al6, b-16, al6, g+16, al6, b-16, al6,g-16 
1280 DATA a 16 , b-16 , bl 6 , o4 ,cl6,c+16,cl6, o3 , b 16 , b- 16 
1290 DATA al6, b-16, bl 6 , o4 , c 1 6 , c+ 1 6 , cl 6 , o3 , b 1 6 , b-16 
1300 DATA ms 

1310 DATA a 1 6 , d 1 6 , o2 , d 1 6 , o3 , dl 6 , o2 , d 1 6 , o3 ,dl6,o2,dl6, o3 , d 1 6 

1320 DATA ol ,g-16,o3,dl6,o4,g-16,ol , g— 1 6 , o3, d 1 6 , ol , g- 16 , o4 , e-18 

1330 DATA dl6,dl6,ol,dl6,o4,dl6,ol ,dl6, o4 ,dl6,ol ,dl6,o4,dl6 

1340 DATA ol,e— 16,o4,dl6,ol,e— 16, o5, e- 16 ,ol ,e-16,o4,dl6,ol , e— 18 , o5 , e— 1 6 

1350 DATA ml , d8 , p8 , o3 , dl6 , e- 1 6 , d 16 , c+ 1 6 

1360 DATA dl6,e-16,dl6,c+16,dl6,e-16,dl6,c+16 

1370 DATA dl6,e-16,el6,fl6,f+16,fl6,el6, e-1 6 

1380 DATA dl6,e-16,el6,fl6,f+16,fl6,el6,e-16 

1390 DATA dl6,c+16,cl6,o2,bl6, o4 ,pl6,e-16,dl6,c+16 

1400 DATA dl6,c+16,cl6,o3,bl6,b-16,bl6,o4,cl6,c+16 

1410 DATA d 16 , d-1 6 , c 16 , o3 ,bl6,o4,cl6, o3 , bl6 , b- 1 6 , a 1 6 

1420 DATA b- 1 6 , bl 6 , o4 ,cl6,c+16,cl6,c+16,dl6,d+16 

1430 DATA e 16 , e- 1 6 , d 16 , d-1 6 , d 16 , d- 1 6 , cl6 , q 3 , bl 6 

1440 DATA o4 , c 16 , o3 , b 1 6 , b- 1 6 , a 16 , a- 16,gl6,g-16,fl6,el6,fl6,el6,d+16,el6 
,f 16,el6, 
d 1 6 

1450 DATA E16,F16,E16,D+16,E16,F16,E16,D16,E16,F16,E16,D+16,P16, 02 , F 1 6 , 
E 1 6 , E-16 

1460 DATA el6,fl6,el6,d+16,el6,fl6,el6,d+16 

1470 DATA el6,e-16,dl6,d-16,dl6,d-16,cl6,ol,bl6, o2 ,cl6,ol ,bl6,b-16,al6, 
a4 

1480 DATA a32 , a+32 , a32 , a+32 , a32 , a+32 , a32 , a+32 
1490 DATA a32, a+32, a32, a+32, a32, a+32, a32, a+32 
1500 DATA o4 

1510 DATA e32 , f 32 , e32 , f 32 , e32, f 32 , e32 , f 32 

1520 DATA e32 , f 32 , e32 , f 32 , e32 , f 32 , e32 , f 32 

1521 DATA ol 

1522 DATA a32 , a+32 , a32 , a+32 , a32 , a+32 , a32 , a+32 

1523 DATA a32 , a+32 , a32 , a+32 , a32 , a+32 , a32 , a+32 

1530 DATA o4 , 

1540 DATA e32 , f 32 , e32 > f 32 , e32 , f 32 , e32 , f 32 
1550 DATA e32 , f 32 , e32 , f 32 , e32 , f 32 , e32 , f 32 
1560 DATA o2 , ms , a8 , a8 , ml 
.1570 DATA weiter 
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Schachprogramme ehrwürdiges 
Aller von fast fünf Jahren zu- 
rückblickt. 

Letztlich fiel dem Verfasser 
dieses Artikels doch ein geeig- 
netes Programm ein. Es handelt 
sich um das von William A. Fink 
geschriebene Programm SFINKS, 
das seit etwa zwei Jahren in ame- 
rikanischen Computer-Zeitschrif- 
ten für die längst ausgelaufenen 
Modelle 1 und 3 der Firma jTandy- 
Radio Shack (TRS-80) angeboten 
wird. Die Version SFINKS 4.0 
erfüllt zumindest von der Form 
her alle Bedingungen, die man 
an ein gutes Schachprogramm 
stellen sollte, wie Stellungsein- 
gabe, Druckerunterstützung und 
die Möglichkeit zum Abspeichern 
von unterbrochenen Partien. 

Da der Autor „rechtmäßiger" 
Besitzer von SFINKS ist, bot 
sich ein Wettkampf zwischen 
GRANDMASTER und SFINKS 
an. Wenn SFINKS auch chan- 
cenlos sein würde, so könnte er 
dem übermächtigen Gegner doch 
die eine oder andere gute Par- 
tie liefern. Möglicherweise hätte 
SFINKS auch einmal Glück und 
könnte mit einem Remis ent- 
schlüpfen! 

Die Vorbereitung: 

Ein Commodore-Besitzer mit 
GRANDMASTER-Programm war 
schnell gefunden. Nachdem sich 
ein befreundeter Computer-Händ- 
ler bereit erklärt hatte, für den 
Wettkampf um den Titel „Welt- 
bestes Schachprogramm für Heim- 
computer" seine Räumlichkeiten 
zur Verfügung zu stellen, stand 
dem geplanten Vergleichskampf 
nichts mehr im Wege. Anstelle des 
altersschwachen Tandy-Rechners 
des Autors wurde ein Gerät Vi- 
deo-Genie EG 3003 eingesetzt, 
das mit dem TRS-80 software- 
kompatibel ist. Nun mußten nur 
noch die Spielbedingungen ausge- 
handelt werden. 

Eine ungerade Anzahl von Wett- 
kampfpartien war von vorne her- 
ein ausgeschlossen, weil auch 
Schachcomputer (wie menschliche 
Schachspieler) häufiger mit den 
weißen als mit den schwarzen Fi- 
guren gewinnen. Deshalb einigten 
sich die Beteiligten vorerst auf 


eine Zahl von vier Partien. 

Das größte Problem ergab sich 
bei der Festlegung der Bedenk- 
zeit, die den Computern pro Zug 
zur Verfügung gestellt werden 
sollte. Da die vorgegebene Bedenk- 
zeit die Qualität des Spiels ent- 
scheidend beieinflußt, mußte auch 
hier eine möglichst gleichmässige 
Verteilung auf beide Rechner vor- 
genommen werden. 

Wenn zwei Turnierspieler eine 
Partie spielen, wird immer eine 
feste Zeit für eine bestimmte An- 
zahl von Zügen vorgegeben. In der 
Regel sind dies zwei Stunden für 
40 Züge. Dabei bleibt es den Spie- 
lern überlassen, wie sie sich diese 
Zeit einteilen. Sollte ein Spieler 
für die Berechnung einer mehr- 
zügigen Kombination eine volle 
Stunde verbrauch; haben, wird er 
danach trachten, diese Zeit bei der 
Abwicklung durch schnelleres Zie- 
hen wieder aufzuholen. 

Das Programm SFINKS besitzt 
einen solchen Turniermodus. Wie 
beim menschlichen Spieler wird 
hierdurch die Spielstarke erheb- 
lich gesteigert, weil der Compu- 
ter sich die Rechenzeit selb- 
ständig einteilen kann. Die für 
die Durchrechnung einer Kombi- 
nation aufgewendete Zeit wird 
im Verlauf einer Partie wieder 
eingespart. 

GRANDMASTER hingegen ver- 
fügt über zehn verschiedene Spiel- 
stufen, wobei die einzelnen Stu- 
fen RELATIVE Zeitvorgaben 
darstellen. Dies bedeutet, daß der 
Computer auf Stufe 6 (ungefähr 
drei Minuten Bedenkzeit) mög- 
licherweise schon nach wenigen 
Sekunden zieht. Er kann aber 
auch bei schwierigen Stellungen 
die Vorgabezeit von drei Mi- 
nuten ganz erheblich überschrei- 
ten. Diese RELATIVE Zeitvorga- 
be ist derart ungenau, daß eine 
gleichmäßige Verteilung der Zeit 
auf beide Rechner rein zufällig 
wäre, selbst wenn beide Rechner 
das GRANDMASTER-Programm 
geladen hätten. 

Das Programm SFINKS hat nun 
neben dem erwähnten Turniermo- 
dus (40 Züge in zwei Stunden) 
noch die Möglichkeit einer ABSO- 
LUTEN Zeitvorgabe pro Zug. 


Diese Vorgaben sind entweder be- 
stimmten Spielstufen (Level 1-7) 
zugeordnet oder können in einem 
Intervall von zwei Sekunden bis 
zu 60 Stunden gezielt festge- 
legt werden. 

Folgende Alternativen 
standen zur Wahl: 

* Turniermodus SFINKS gegen 
Stufe 6 GRANDMASTER (ca. 
3 Minuten pro Zug) 

* 3 Minuten absolut SFINKS 
gegen 3 Minuten relativ GRAND- 
MASTER 

* 3 Minuten absolut SFINKS ge- 
gen 3 Minuten absolut GRAND- 
MASTER. 

Bei der ersten Variante könn- 
ten die Computer nicht nur 
weitgehend selbständig agieren, sie 
hätten auch die Möglichkeit, 
schwierige Stellungen mit einer 
höheren Rechentiefe zu analysie- 
ren. Eine völlig gleichmäßige Ver- 
teilung der Zeit auf beide Rech- 
ner wäre hierbei allerdings nicht 
möglich, weil GRANDMASTER 
eben nur eine RELATIVE Zeit- 
vorgabe zuläßt. 

Die zweite Variante wurde allge- 
mein abgelehnt, weil allein das 
Programm GRANDMASTER die 
Möglichkeit hätte, kompliziertere 
Stellungen gründlich durchzurech- 
nen. SFINKS dagegen berechnet 
bei einer festen Vorgabe von drei 
Minuten - zumindest im Mittel- 
spiel - höchstens fünf Halbzüge 
im voraus. 

Die letztgenannte Variante er- 
gibt sich dadurch, daß man 
GRANDMASTER auf einer hohen 
Spielstufe (z.B Stufe 8) spielen 
läßt, den Denkprozeß jedoch 
nach drei Minuten manuell ab- 
bricht. Dieses „Abwürgen" ist 
durchaus legal, weil der Com- 
puter nach drei Minuten be- 
reits weitgehend (Shannon A- und 
B-Strategie) selektiert hat und 
denjenigen Zug spielt, den er bis 
zu diesem Zeitpunkt als besten 
Zug erkannt hat. 

Nach Abwägung aller Vor- und 
Nachteile einigte man sich schließ- 
lich auf diesen zuletzt beschrie- 
benen Spielmodus, der beiden 
Computern die gleiche Rechen- 
zeit von drei Minuten (absolut) 
zubilligt. Man behielt sich jedoch 
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vor, in einem weiteren Wett- 
kampf die erste Variante aus- 
zuprobieren. 

Abschließend kam noch die 
Regelkunde der Programme zur 
Sprache. Es war bekannt, daß 
GRANDMASTER entgegen der 
Schachregeln bei einer Bauern- 
umwandlung nur eine DAME 
akzeptiert, was durchaus nicht im- 
mer {Pattsituation) im Sinne des 
Spielers ist. SFINKS läßt dage- 
gen eine Unterverwandlung durch- 
aus zu. Da alle Beteiligten der Mei- 
nung waren, daß diese seltene Si- 
tuation bei den vier vereinbarten 
Partien nicht eintreten würde, 
konnte das Turnier nun endlich 
beginnen. 

Der Wettkampf. 

Schon in der ersten Partie zeigte 
sich eine der großen Schwächen 
von Computerschachprogrammen 
nämlich die Schwierigkeiten, um 
nicht zu sagen das Unvermögen, 
bei der Behandlung des Endspiels. 
GRANDMASTER spielte als An- 
ziehender die Abtauschvariante 
der spanischen Partie und verlor 
im Verlauf des Mittelspiels ins- 
gesamt drei Bauern. Trotz dieses 
Vorteils konnte SFINKS das zu- 
gegebenermaßen schwierige End- 
spiel mit ungleichfarbigen Läu- 
fern nicht gewinnen. Nach 76 Zü- 
gen wurde die Partie abgebro- 
chen und als unentschieden ge- 
wertet, weil Schwarz offensicht- 
lich keinen Gewinnweg fand 
(siehe Bild 1). 

Stand: GRANDMASTER gegen 
SFINKS 0,5 : 0,5. 

Die zweite Partie wurde dann 
wesentlich interessanter. Auch 
SFINKS spielte jetzt mit den wei- 
ßen Figuren die spanische Er- 
öffnung. Aus der modernen Stei- 
nitzverteidigung heraus entwicke- 
le sich ein turbulentes Mittel- 
spiel. SFINKS drängte GRAND- 
MASTER in die Defensive und 
behielt nach einer gewaltigen Ab- 
tauschorgie einen gesunden Mehr- 


bauern. 

Diesmal war an der Endspiel- 
führung ausnahmsweise nichts aus- 
zusetzen. Den Zug 56. ... Th7 
- d7 begleitete SFINKS mit dem 
Kommentar "++”, was schlicht 
"Gewinnstellung" bedeutet. Nach 
weiteren 13 Zügen wurde der ar- 
me "Großmeister" dann matt- 
gesetzt. 

Stand: SFINKS gegen GRAND- 
MASTER 1,5 : 0,5. 

Auch die dritte Partie gewann 
SFINKS recht eindrucksvoll. 
GRANDMASTER hatte 

das Blumenfeld-Gambit nicht 
in seiner Eröffnungs-Bibliothek 
und geriet rasch in entscheiden- 
den Stellungsnachteil. Im Mittel- 
spiel glänzte SFINKS mit eini- 
gen hübschen Kombinationen, die 
beinahe zu einem spektakulären 
Matt des weißen Königs in der 
Brettmitte (siehe Bild 2) ge- 
führt hätten. Im Mehrbesitz von 
Turm und Läufer war der Rest 
dann nur noch eine Frage der 
Zeit. 

Stand: GRANDMASTER gegen 
SFINKS 0,5 : 2,5. 

Obwohl die Entscheidung damit 
bereits vorzeitig gefallen war, 
strengten sich beide Programme 
in der letzten Partie noch ein- 
mal mächtig an. In einer un- 
regelmäßigen DamenbauernerÖff- 
nung ging SFINKS (Weiß) auf 
Bauernraub aus. Als GRANDMA- 
STER versuchte, die weiße Dame 
zu fangen, wagte er sich mit 
beiden Türmen von der achten 
Reihe. Das daraufhin drohende 
Matt konnte er dann nur noch 
durch das Opfer eines Springers 
verhindern. 

Im weiteren Verlauf der Partie 
kostete ein weißer Freibauer auch 
noch den letzten schwarzen Turm. 
Der vorgerückte weiße König 
und der weiße Turm drängten 
schließlich den schwarzen König 
rücksichtslos an den Rand und 
setzten ihn matt. 


Eine Schlußbetrachtung : 

Die Werbung „weltbestes Schach- 
programm " hat sich also als 
echter Flop erwiesen. Wenn der 
Verfasser auch nicht verhehlt, daß 
er sich über den eindeutigen 
Sieg von SFINKS gefreut hat, war 
der Ausgang des Wettkampfes 
für ihn keine Überraschung. Da- 
für waren die Voraussetzungen 
von der Hardware her zu ungleich. 

GRANDMASTER läuft auf 
Commodore-Rechnern mit den 
Prozessoren 6502 (VC 20) 
oder 6510 (Commodore 64), die 
beide, deutet man die spärli- 
chen technischen Informationen 
richtig, nur mit einer Frequenz 
von etwa einem Megahertz ge- 
taktet sind. SFINKS wurde für 
Tandy-Computer geschrieben, die 
immerhin (Model 1) eine Takt- 
frequenz von 1,7 Mhz aufweisen. 

Selbst wenn die Höhe der 
Taktfrequenz auch keine absolu- 
ten Rückschlüsse auf die Rechen- 
geschwindigkeit zuläßt, ist 
GRANDMASTER noch aus einem 
anderen Grund benachteiligt. 
SFINKS benötigt einen Speicher 
von 48 KByte, wohingegen das 
Programm GRANDMASTER mit 
nur 8 K auskommt. Dies ist auch 
eine Erklärung für das begrenzte 
Eröffnungs-Repertoire und die so 
schmerzlich vermißte Möglichkeit 
einer Stellungseingabe, 

Vielleicht gibt es noch mehr 
Entschuldigungen für das schlech- 
te Abschneiden von 

GRANDMASTER. Eines läßt sich 
aber mit Sicherheit sagen: 
GRANDMASTER ist NICHT das 
beste Schachprogramm der Welt 
für Heimcomputer! Solche Be- 
hauptungen sollte man in der 
Werbung unterlassen. Sie sind 
unseriös und fordern den Wider- 
spruch geradezu heraus! 

Quod erat demonstrandum! 


1. Partie - Weiß: GRANDMASTER / Schwarz: SFINKS 


1 

E2-E4 

E7-E5 

5 

D2-D4 

E5-D4 

9 C1-G5 

H7-H6 

2 

G1-F3 

B8-C6 

6 

F3-D4 

C6-C5 

10 G5-D2 

G8-F6 

3 

F1-B5 

A7-A6 

7 

D4-F3 

DB-D1 + 

11 B1-C3 

E8-C8 

4 

B5-C6 

D7-C6 

B 

El-Dl 

C8-E6 

12 E4-E5 

F6-D5 
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I Ihr tuvertlssig« Partner für Computircystemo 

Jä/cc Computer Studio GmbH 

Software + Hardware + Beraluny 
für TRS BO* und Gerde-Corrfaiter 
Service-Eitwrsand 

Elisabethstraße 5 
4600 Dortmund 1 
Tel.:02 31-52 8184 

Ihr Ansorechcartrier. Tx 822 631 cc'csd 

V. SchaWInsil 
Jan P, ScKnddei, 

•TRS BO Ist einaetrasenss Warcnrclchen der Tandy Cotp. 




■ax&raa- 






ST. AUGUSTIN 


TROMMESCHLÄGER 
COMPUTER GMBH 
ST. AUGUSTIN 

POSTFACH 21 05 
5205 ST. AUGUSTIN 2 
TEL. 02241-28071 
TELEX 889702 


OBERHAUSEN 


yssa 


jtßSX' 


Computer 

Nohlstr. 29 4200 

4200 Oberhausen 1 

Telefon (0208) 853997 
C 4200 (APPLE komp.) 

Oric 

EACA (Videogenie) 
SANYO (Laser) 


SCHMIDTKE 

electronic 

GENIE -Fachhändler 

Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241 -232 17 


Geschäftszeiten : 

Mo. - Fr. 10.00 Uhr bis 13.00 Uhr 

14.30 Uhr bis 18.30 Uhr 
Se. 10.00 Uhr bis 14.00 Uhr 

Donnerstags geschlossen 


TATUNG TPC 2000 
Bürocomputer mit 1.4 MBYTE 
Diskkapazität 

RECHNER für C/PM 2.2 und 
GENIE DOS 

Mit TOPTIP Textverarbeitung, Fi- 
nanzbuchhaltung u. offene Posten- 
verwaltung. Enopreis DM 5995,- 
Räbiger Computersysteme 
5160 Düren, Veldenorstr. 65 
Tel. 02421/43877, Telex 833642 REDOD| 
Mont.-Frelt. 10-13. 14-17 Uhr 
Alleinvertr.,Händleranfrag. willkommen 


Elektronik 

SHOP 

Iburgerstraße 17 
Telefon 0541/588660 
4500 OSNABRÜCK 


MICRO 80 Computer 

GENIE CENTER 

mit oigoner Service-Station 

Computer • Monitor® 
Typonrnd u Matrlxdruckor 
E D Vo.ikdtaA-tllkaHan.Ta&dllaipaj.if 

f irvanibu<Mta:tueg • io x«2uch> allui-g 
Sjaltm-SoHwaia • Spulproj iara« e 

1000 Berlin12, 

Telefon 030/3125913 

Geschäftszeiten: Mo-Fr 10-18. Sa 10-13 Uhr 


WERSI 

MUSIK + COMPUTER 
Orgel- u. Piano-Bausätze 
Industriestraße 
5401 HALSENBACH 
Tel.. (06747) 7131 


WILHELMSHAVEN 


Microcomputer 
Softwareprodukte 
Peripheriegeräte u. Zubehör 
SHARP 
KAYPRO 
EACA -GENIE 
OSBORNE 
ATARI u.a. 
EPSON 
BROTHER 


SÄ 

Systeme 


2940 Wilhelmshaven 
Bismarckstraße 150 
Telefon 04421-12636 
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13 

C3-D5 

E6-D5 

35 

E1-G2 

D5-D4 

57 E3-E4 

D5-E4 

14 

F3-H4 

G7-G5 

36 ' G2-F4 

E8-E7 

58 C2-C3 

E4-D5 

15 

H4-F3 

FB-G7 

37 

F4-E2 

D4-E4 

59 D2-E3 

B7-B5 

16 

Hl— El 

H8-E8 

38 

E2-C3+ 

E4-E5 

60 E3-D4 

D5-E4 

17 

E1-E3 

G5-G4 

39 

D2-F4+ E5-D4 

61 D4-E5 

E4-D3 

18 

F3-E1 

G7-E5 

40 

C3-E2+ 

D4-D5 

62 F4-G5 

C6-C5 

19 

E1-D3 

E5-H2 

41 

E2-C3+ 

D5-E6 

63 G5-H6 

D3-E4 

20 

E3-E8 

D8-E8 

42 

C3-E2 

E7-D7+ 

64 H6-E3+ 

C5-C6 

21 

G2-G3 

C5-C4 

43 

F4-D2 

E6-E5 

65 E3-D4 

E4-C2 

22 

D3-E1 

H6-H5 

44 

Dl— CI 

F7-E6 

66 D4-A7 

C2-D3 

23 

A2-A4 

C8-D7 

45 

D2-F4 

E5-E4 

67 A7-D4 

D3-B1 

24 

Al -A3 

H2-G1 

46 

E2-C3f 

E4-D4 

68 D4-A7 

C6-B7 

25 

D2-E3 

D7-E6 

47 

C3-E2 + 

D4-D5 

69 A7-D4 

B1-E4 

26 

F2-F3 

G1-H2 

48 

E2-C3 + 

D5-C6 

70 D4-E3 

B7-C6 

27 

F3-G4 

H5-G4 

49 

B4-B5 

A6-B5 

71 E3-D4 

E4-D3 

28 

E3-F4 

E6-D7 

50 

A4-B5 

C6-B6 

72 D4-A7 

D3-C2 

29 A3-C3 

H2-G1 

51 

A3-A4 

F2-D4 

73 A7-D4 

C2-3i 

30 

B2-B4 

G1-F2 

52 

C3-E2 

B6-B5 

74 D4-A7 

C6-B7 

31 

F4-D2 

D7-C6 

53 

E2-D4+ 

D7-D4 

75 A7-D4 

B1-E4 

32 

C3-A3 

F7-F5 

54 

A4 -A3 

B5-C6 

76 D4-E3 

B7-C6 

33 

A3-C3 

D5-F7 

55 

A3-E3 

D4-E4 



34 

C3-A3 

C6-D5 

56 

C1-D2 

E6-D5 
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Endlich verfügbar! ! ! 

MODEM-ANSCHLUSS FÜR GENIE - COMPUTER 

Nutzen auch Sie Ihr Genie zum „Hacken" ! ! ! ! 

Modem Anschluß, Hard- und Software, anschlußfertig für 
Colour Genie (bei Bestellung altes ROM 4 einschicken ! !) 1 15,00 

Genie l/l l,TRS 80 165.00 

für jeden Akustikkoppler oder Festmodem, mit Kabel und umfangreicher 
Software z.B. Up-/Download von BASIC-Programmen, Speicher- und Druck- 
möglichkeiten (bei Bestellung Typ und gewünschten Datenträger angeben). 
Akustikkoppler AK 300 mit FTZ Zulassung 549,00 

Automodem mit eingebautem Telefon (nur für Export) 565,00 

SUPER DRUCKER / Schreibmaschine für Colour : brother EP 44 
3k Buffer, Schönschrift 18x24 Punkte, Display 15 Zeichen, transportabel, 
Thermo- und Normal-Papier, Rolle und Einzelblatt, anschlußfertig 849 ,( 


Colour Genie mit 32k RAM 
Colour Genie mit 32k RAM und RGB Karte 
Einhandjoystick für Colour und Genie 1/1 1 komplett 
Einhandjoystick Quickshot II für Colour/Genie l/ll 
Staubhauben für. 

Colour Genie, Genie l/ll, star Drucker 
Genie III 


498.00 

598.00 

39.00 

59.00 

25.00 

45.00 


FRAGEN SIE DIE 
SPEZIALISTEN!!! 

kbj data-systems 

Kainz Keppef 


Odenthalar StaSe 136 
Pwtfach 20 05 67 
5060 Bergisch Gladbach 2 
■feteton (0 22 02) 3 88 84 
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310 PRINTI ; TABC 4 ) ” . Runde C " ; D$< I ) ; ” > ” 

320 PRIKT” 

330 PRIKT 

340 PRIKT”SPIELFREI : ” ; TABC20 )T$C I ) 

350 PRIKT 

360 FOR Y=1 TO CT2-l)/2 
370 N= I + Y : I F K>T2 THEK N=N-T2 
380 KK=T2+ I -Y : IF KK>T2 THEK KK=KK-T2 
390 IF Y/2=INTCY/2D THEK 410 

400 PRINTT$(N) ; TABC 15) ” " ; T$ C KN ) : GOTO 420 

410 PRINTT$CNN) ;TABC15)” ”;T$CN) 

420 NEXTY 

430 PRINTS920 , "DRUCKERAUSGABE <J/N>” 

440 A$= I NKEY$ : I F A$=””THEN 440 
450 IF A$< > ” J ” THEN 580 
460 REH *** DRUCKERAUSGABE DER RUNDEN 
470 LPRINT I ; TABC 4) ” . RUNDE C”;D$CI);”)” 

480 LPRINT ” 

490 LPRINT’’SPIELFREI : ” ; TABC20 )T$C I ) 

500 LPRINT 

510 FOR Y=1 TO CTZ-l)/2 
520 N=I +Y : IF N>T2 THEN N=N-T2 
530 NN=T2+ I -Y : I F NN >T2 THEN NN=NN-T2 
540 IF Y/2=INTC Y/2) THEN 560 

550 LPRINTT3KN) ;TABC15)” ” ; T$ C NN ) : GOTO 570 

560 LPRINTT$CNN) ; TABC 15V ”;T$CN) 

570 NEXT Y 
580 NEXT I 
590 END 

600 REH *** PAARUNGEN BEI GERADER TE I LNEHHERZAHL 
610 CLS 

620 FOR 1=1 TO T2- 1 
630 CLS 

640 IF 1=1 THEN H2=T2 ELSE H2=I 
650 PRINTI;”. Runde C”;D$CI);”)” 

660 PRINT” ” 

670 PRINT 

680 IF I /2= I NT (1/2) THEN 700 

690 PRINTT$CH2) ; TABC 15) ” ”;T$Cl):GOTO 710 

700 PRINTT$C 1 ) ; TABC 15) ” ”;T$CHZ> 

710 FOR Y=1 TO T2/2-1 

720 N= I +Y : I F N>T2 THEN N=N-TZ+1 

730 NN=T2+ I -Y- 1 : IF NN>TZ THEN NN=NN-TZ+1 

740 IF Y/2=INTC Y/2) THEN 760 

750 PRINTT$CN) ; TABC 15) ” " ; T$ C NN ) : GOTO770 

760 PRINTTSCNN) ;TABC1S)” ”;T$CN) 

770 NEXTY 

780 PRINTS920, "DRUCKERAUSGABE <J/N>” 

790 A$=INKEY$ : IF A$=” "THEN 790 
800 IF A$<>”J" THEN 950 
810 REH *** DRUCKERAUSGABE 
820 LPRINTI;". RUNDE C”;D$CI);")" 

830 LPRINT" 

840 LPRINT 

850 IF I/2=INTCI/2)THEN 870 

860 LPRINTTSCHZ) ; TABC 153” ”;T$Cl):GOTO 880 

870 LPRINTTSC 1 ) ; TABC 15) " ”;T$CHZ) 

880 FOR Y= 1 TO TZ/2-1 

890 N= I + Y : I F N>TZ THEN N=N-TZ+1 

900 NN=TZ+I-Y-1 : IF NN >T2 THEN NN=NN-TZ+1 


COLOUR 
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910 IF Y/2= I NT ( Y/2 ) THEN 930 

920 LPRINT T$CN) ;TABC 15) " " ; T$<NN) : GOTO 940 

930 LPRINT T$CNN) ; TABC 15) ’’ ”;T$CN) 

940 NEXT Y 
950 NEXT I 
960 END 

970 REH *** DRUCKERAUSGABE DER TEILNEHHERLISTE 
980 CLS 

990 PRINT-’BITTE UARTEN - DER DRUCKER ARBEITET ! ’’ 
1000 LPR I NTCHR$ (14) "TEILNEHHERLISTE” 

10 10 LPRINTCHR9K 14) ” ====== = = = ======" 

1020 LPRINT 

1030 FÖR 1=1 TG K— 1 

1040 LPRINTI ; TABC4) ”;T$CI) 

1050 NEXT I 
1060 RETURN 

1999 REH *** DATA-2EILEN DER TEILNEHHER 
5000 DATA ENDE 



Die Maus 
ist raus 


HIER EINIGE ZEILEN 
DES SIEGERS 
IM 

PROG R AMMIERE R- 
WETT-BEWERB 

Zunächst zur Person: 

Ich bin 25 Jahre alt und zur 
Zeit als Elektroniker bei der 
Bundeswehr beschäftigt. Meine 
Hobbys sind die Elektronik im 
Allgemeinen und die Computer- 
technik im Besonderen. 

Doch nun zum Programm: 

Das Prinzip des Programmes ist 
folgendes: Bewegt man sich in ei- 
nem Labyrinth und bleibt dabei 
immer mit einer Wand in Be- 
rührung, so kommt man auto- 
matisch zum Ausgang. FÜR DIE 
MAUS HEISST DAS IM PRO- 
GRAMM: 

Bei jeder Abzweigung wenn mög- 
lich nach rechts, sonst geradeaus 
gehen. 

Da der Eingang bekannt ist 
(0,2), muß die erste Bewegung 
der Maus nach (1,2) erfolgen. 
Von hier aus kann nur nach 


rechts oder nach unten gegangen 
werden, je nach Labyrinth. 

Daher wird in Zeile 100 über- 
prüft, ob der Punkt (1,3) ge- 
setzt ist. Wenn ja, so erfolgt 
eine Bewegung nach rechts (Zei- 
le 103), wenn nein, eine Bewe- 
gung nach unten (Zeile 101) 

Die Zeilen 101-107 werden 
nach einem Check auf die mög- 
liche Richtung angesprungen. Die 
Maus wird jeweils um einen 
Schritt in der entsprechenden 
Richtung bewegt. 

Dann erfolgt der Test, in wel- 
che Richtung jetzt gegangen wer- 
den muß. Ändert sich dabei 
die Richtung nicht, wird in 
die gleiche Zeile 

ansonsten wird die der neuen 
Richtung entsprechende Zeile an- 
gesprungen. 

Den Rücksprung in die gleiche 
Zeile habe ich mit einer FOR 
NEXT-Schleife realisiert, da ich 
nach eingehendem Studium des 
ROM-Listings herausfand, daß der 
Rücksprung mit NEXT um eini- 



Norbert Musk 


atewitz 


ges schneller ist als mit einem 
GOTO. 

Die folgenden Programmzeilen er- 
füllen den Zweck, wenn mög- 
lich, unnötige Wege zu vermei- 
den. 

BEISPIEL 1: Erreicht die Maus 
die X-Position 121, springt sie 
sofort zum X-Wert 122 und 
läuft jetzt entlang der Außen- 
wand weiter. 

BEISPIEL 2: Die Maus be- 
wegt sich bei Y=41 nach rechts 
und es besteht die Möglichkeit 
nach unten „abzubiegen". Jetzt 
wird überprüft, ob der Punkt 
(x+2,43) gesetzt ist. Ist der 
Punkt nicht gesetzt, wird die 
Maus direkt nach (x,44) gebracht, 
sonst wird so getan, als wäre 
die Abzweigung nach unten nicht 
vorhanden. 
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ZUR GESCHWINDIGKEIT: 

Durch den POKE-Befehl wird 
die Tastaturabfrage ausgeschaltet 
(ca. 5% Geschw. -Gewinn). 

In den Zeilen 1-90 kommen 
mir zu viele Variablen vor (mein 
Programm benötigt nur zwei). 

Daher das C LEAR -Statement, ge- 
folgt von DEFINT a,b. Je weni- 
ger Variablen Vorkommen, desto 

1 CLS 

2 0NERR0RG0T026 

3 FORI =0TQ1 22: SET ( I 

4 FORI =0T045: SET <0, 

5 FORX 1 =0T01 22STEP3: I FPOI NT ( X 1 , 45) THENX=X 1 : Y=45: GOSUB1 1 

6 NEXTX1 

7 FORY 1 “0T045STEP3: FORX 1 =OTO 1 22STEP3 

8 IFPOI NT < X 1 , Y 1 ) THENX=X 1 : Y*Y1 s G0SUB1 1 

9 NEXTX1 : NEXTY1 

10 GQT090: ! 'ab 100 startet ihr Maus-Programm ! ! ! 

11' Ab gesetztem Punkt, Wand ziehen 

12 Z*1 

13 R=RND (4) 

14 Z*Z+la IFZ=10THENZ=1: RETURN 

15 I FR=1 THEN IFF'OINT ( X— 3, Y> =-l THENGOTO 13 

16 IFR=2THENIFF'0INT (X+3, Y) =-l THENG0T01 3 

1 7 I FR=>3THEN I FPO I NT < X , Y-3 ) *- 1 THENGOTO 1 3 
1 S I FR=4THENI FPO I NT ( X , Y+3) =-l THENGOTO 1 3 

19 FORI =*1 T03 

20 IFR=1THENX=X-1 

21 IFR=2THENX»X+1 

22 IFR“3THENY*Y-1 

23 IFR=4THENY=Y+1 

24 SET ( X, Y) 

25 NEXTI : Q*=RND (3) : IFQ=1 THENGOTO 15ELSEG0T0 13 

26 RESUME13 

90 RESET (0, 2) : RESET (123. 43) 

100 CLEAR: DEFINTA, B: A=1 a B=2: P0KE1 6406, 82: SET <0, 2) : SET ( A, B) : RESET 
(0,2) : IFPOI NT ( A, B+l ) 103 

101 F0RB=>=B+1T047: RESET (A, B-l >: SET (A.B) : IFB=43IFP0INT (A-l , B) RESET 
(A, B) : B“B+1 : G0T0103ELSE120ELSEIFN0TP0INT ( A-l , B) 107ELSEIFP0INT (A, 
B+l) 103ELSENEXT 

103 FOR A= A+ 1 TO 127: RESET (A-1,B) :SET(A,B) : I FA» 121 THEN 1 1 5ELSE I FNOTP 
01 NT (A, B+l ) IFB*=41THEN1 18ELSE1 01 ELSE IFPOI NT (A+l ,B) 105ELSENEXT 
105 F0RB=B-1 TOOSTEP-1 : RESET <A, B+l ) i SET (A, B) : IFNOTPOINT ( A+l , B) 103 
ELSEIFF'OINT ( A« B-l ) 107ELSENEXT 

107 FORA-A-lTOOBTEP-l: RESET < A+l, B) :SET(A,B) : IFNOTPOINT (A, 8~i ) 125 
ELSEIFF'OINT ( A-l , B) 101ELSENEXT 

1 15 RESET (A, B) : A-A+l : SET < A, B) : IFA-123P0KE1 6406, 227: END 

116 IFB~44RESET(A„B) : B-B-l : SET ( A, B) : G0T01 15ELSEF0RB“B+1T043: IFPO 
1 NT ( A+ 1 , B ) RESET ( A , B- 1 ) : SET ( A, B) : NEXTELSERESET < A , B- 1 ) « SET ( A, B) 8G0 
TOI 15 

118 IFPOI NT ( A+2, 43) «OTHENRESET < A, B) : B«=B+3: SET ( A, B) : GOTO 1 03ELSERE 
SET (A, B) : A=A+12IFP0INT < A+l , B) =*OTHEN 1 03ELSE1 05 

120 IFPOI NT ( A-2, B-l ) =0THEN1 07ELSEI FPOINT ( A+2, 44) RESET (A,B) : A»A+1 
j G0T0105EL8EREBET (A, B) i B-B+l i G0T0103 

125 IFF'OINT ( A, B— 4) IFF'OINT ( A-l , B-2) IFNOTPOINT (A-2, B> RESET (A, B) a A* 
A-l : GDT0107ELSEIFB“43RESET <A, B) : B=44: G0T0103ELSEIFP0INT (A-2, B) RE 
SET ( A, B) : A=A-1 : GOTO 101 

126 GOTO 105 



schneller kann sie der Inter- 
preter in der Tabelle finden. 
Und mit Integers läßt's sich 
eben schneller rechnen als mit 
den sonst angenommenen Single- 
Precisions. 

ANSONSTEN : - die schon oben 
erwähnten FOR-NEXT-Schleifen - 
die die Verwendung von ELSE- 
Statements - die Tatsache, daß 


, 0) : SET (1,45): NEXTI 
I) : SET (123, I) : NEXTI 


IF-THEN Vergleiche schneller ab- 
laufen, wenn die Bedingung nicht 
erfüllt ist. Soviel zum Programm. 

Das ich gewonnen habe, freut 
mich natürlich sehr! 

Meine Anregung: Öfter mal was 
in der Art! II 

Mit freundlichen Grüßen 

NORBERT MUSKATEWITZ 
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S pnnger ! 7‘JCrJtf: 


cO&vT 


* 


Trampolin 


TRAMPOLIN ist ein Geschicklich- 
keits-Spiel, bei dem man ein Tram- 
polin so bewegen muß, daß ein 
Männchen an die Luftballons an 
der Decke springt. - Das Basic- 
Programm verfügt über eine An- 
leitung, Rekordliste und gesperr- 
te BREAK- und RESET-Tasten. 


P unkte: 


B o n u s : 


Runde : 


10 REH*** **************** ******** 

20 REH* Trampolin * 

30 REM* fuer Colour-Genie * 

40 REJ1* von Thomas Uagner * 

50 REH* 2.8.1984 * 

60 REH*************************** 

70 REH**** BREAK UND RESET SPERREN **** 
80 POKE 1 6396 , 230 : POKE 1 68 12,118 
90 REH******* DATAS FUER 2EICHEN ****** 
100 DATA1, 1,1, 1,1, 1,1,1 

110 DATA128, 128, 128, 128, 128,128,128,128 

120 DATA240, 63, 15, 19, 16, 16,56,56 

130 DATA0, 255, 255, 255, 0,0, 0,0 

140 DATA 1 5 , 252 , 240 ,200,8,8, 28 , 28 

150 DATA0, 56, 124,76,204,76,56,24 

160 DATA 124, 156,28,24,63,33,33,224 

170 DATA0 ,0,0, 60 , 36 , 60 , 60 , 24 

180 DATA126, 153, 153,24,36,36,36, 195 

190 DATA 124, 156,28,24,20,18,20,32 

200 DATA 126, 153, 153,24,36,39,32, 192 

210 DATA 126, 153, 153, 24, 36, 228, 4, 3 

220 DATA0, 0,0, 0,0, 143, 159,255 


L'ARI ABLENL I STE fuer TRAMPOLIN 

Hilfsvariable 
BB Bonuspun k te 

N Anzahl der Rekordnamen 
Hl Rekordpunkte 
P Hilfsvariable 
PP Punkte 
PZ Punkte pro Runde 
RP Rundenposition des Daches 
RR Runde 

RX horizontale Richtung des Spr 
RV vertikale Richtung des Spr 
SZ Anzahl der Springer 
U Flag fuer Ripple-Sort 
XS horizontale Position des Spr 
XL Position des Laeufers 
VS vertikale Position des Spr 

ZL Sehr i ttzaeh ler des Laeufers 

ZZ Flag fuer Anleitung 

A$ Hilfsvariable 
Nl$ Rekordnamen 


230 DATA16, 56, 124, 124,254,254, 124,56 

240 FORA=0TO1 1 1 : RE ADA 1 : POKE&HF400+ A , A 1 : NEXT 

250 CLEAR2000 : CLEAR :DIHN1$(9) , N 1 C9 ) : FORA=0TO9 : N1$C A )=STR I NGSC 1 5 , 32) : NEX 
T 

260 REH************ Vorgrafik ******** 

270 POKE&H4099 , 0 : POKE 1 64 10,7: POKE 16409 , 7 : CLS : COLOUR 1 1 : PRINTS 15 , "Trampol 
in”: C0L0UR3 : PR I NTSTR I NGS C 40 , 2 1 7 ) 

280 COLOUR1 : A$=”Deine Aufgabe ist es, ein Trampolin mit den zuei Pfeilt 
asten links und rechts so ueber den Bildschirm zu steuern, dass d 

er Springer die oben haengenden Luftballons trif f t . ” : GOSUB1350 
290 PRINT: A$="Doch im Laufe der Zeit kommt die Decke immer tiefer und 
der Seitenwind ver- staerkt sich . ” : GOSUB1350 

300 PRINT: PRINT: PR INT "De in Trampolin: :C0L0UR1 1 : PRINTCHRSC 130) ; CHRSC 13 
1 ) ; CHRSC 132) : COLOUR1 : PRINT: PRINT”Der Springer : " ; : C0L0UR6: PRINTCHRfC 136) 
; : C0L0UR5 : PR I NTCHRS C 27 ) ; CHR$ C 24 ) ; CHR$ CI 35 ) 

310 COLOUR1 : PRINT: PRINT: PRINT"E in Ballon:”; : COLOUR 1 1 : PRINTCHRSC 141 ) ; CHR 
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SOS) ; 

320 COLOURRND ( 16) : GOSUB1300 : PRINTS 962, "Uaehle Deine Sprunghoehe (1-95"; 
:A$=INKEY$: IFA$=” "THEN320 

330 RR=ASC(A$5-48: IFRR< 1 THENRR= 1 ELSE I FRR >9THENRR=9 
340 SZ=5:PP=0:PZ=0 

350 REH***** HAUPTGRAFIK DARSTELLEN ** 

360 BB=800+RR*200 : RP=RR*40+40 : CLS : C0L0UR5 : PR I NT §880 , STRI NG$ (40,211 5 ; 

370 FORA=RP+ 1 25T0RP+ 1 54STEP2 : COLOURRND (165 : PRINT § A , CHR$( 1415 ; :PRINTSA+1 
, CHR$( 191 5 ; : NEXT 

380 A$=CHR$(1285+CHR$(1975+CHR$( 1295 

390 COLOUR10: FORA=80TO840STEP40 : PRINTSA, A$; : PR I NT§ A + 37 , A$ ; : NEXT 
400 PRINTS41 ,CHR$(2445 ; : PRI NTS78 , CHR$ ( 244 5 ; 

410 A$=CHR$(2265 : B$=CHR$(2285 : PRINTSRP + 2 , A$ ; : PR INT § RP + 37 , B$ ; 

420 PRI NT S RP+ 1 22 , CHR$ ( 226 5 ; 

430 PRINTSRP+84 ,CHR$( 1285 ; STRING$(30 ,2185 ; CHR$( 1295 ; 

440 C0L0UR3 :PRINTSRP+4,STRI NG$ ( 32 , 2025 ; 

450 PR I NT § RP+3 , B$ ; : PRINTSRP+36 , A$ ; 

460 PRINTS RP+ 44 , B$ ; : PR I NT S RP + 75 , A$ ; 

470 PRINTSRP + 45, STR 1 NG$ (30 ,2025 ; 

480 COLOUR 1 3 : F0RA=RP+5T0RP+35STEP4 : PRINTSA , CHR?C2025CHR$( 2025 ; : NEXT 
490 FORA=RP+45TORP+75STEP4:PRINTSA,CHR$(2025CHR$(2025 ; : NEXT 
500 C0L0UR5 : PRINTS806, CHR$( 1335 ; : C0L0UR9 : PR I NT S 846 , CHR£ ( 1 375 ; 

510 COLOUR 1 : PRINTS960 , "Punkte: : PR I NT § 976 , "Bonus : ”;BB; : PRINTS 990 , "Rund 
e: : PRINTUSING"##” ; RR; : PRI NTS45 , "Springer : ” ; 

520 C0L0UR5 : PRINTS806,CHR$( 1 33 5 ; ■ C0L0UR9 : PR I NTS846 , CHR$( 1 37 5 ; rCOLOURll: 
PRINTS 84 3, CHR$( 1305; CHR$(131 5 ;CHR$( 1325 ; : C0L0UR6 : PRI NT §54 , STR I NG$(SZ , 1 3 
65 ; : C0L0UR5 : PR INT S 1 4 , STR I NG$ ( SZ , 135 5 ; 

530 FORA =80 1 TORP+4 1STEP-40 
540 C0L0UR5: PRINTSA ,CHR$( 1355 ; 

550 COLOUR6: PRINTS A+40 , CHR$( 1385 ; 

560 FORA 1 = 1 TOI 00 : NEXT 
570 PRINTSA+40 ,CHR$( 1395 ; :GOSUB1330 
580 FORA 1 = 1 TO90 : NEXT 
590 COLOUR 10 : PRINTSA+40 ,CHR$( 1975 ; 

600 NEXT 

610 PRINTSRP+41 ,CHR$( 1975 ; 

620 REH********** HAUPTSCHLEIFE ***** 

630 XS=3: YS=RR+2:RY=1 :XL=843:RX=0:ZL=1 
640 GOSUB 1090 
650 GQSUB800 
660 GOSUB 1 090 

670 BB=BB-5: I FBB< 1 THENBB=0 
680 COLOURRND ( 165 :PRINTS967,PP+PZ*50; : PR I NTS982 , BB ; 

690 GOSUB800 

700 I FPZ= 15THEN730 

710 GOTO640 

720 REM****** RUNDE UEBERSTANDEN **** 

730 GOSUB 1340: FORA=0TO50 : GOSUB 1 300 : COLOURRND ( 165 : PR I NT S 923 , "S i e haben d 
i e” ; RR ; ” . Runde gemeistert t ”;: GOSUB 1 300 : NEXT 

740 FORA=0TO50 : COLOURRND( 165 : PRINTS923 , "Jetzt wird es aber schuieriger 
!!!!! ”; : G0SUB1 300 : NEXT : PR INT S 920 , CHR$ (30 5 ; 

750 RR=RR+ 1 : PP=PP+BB+PZ*50 : PZ=0 : SZ=SZ+ 1 

760 I FRR=1 4THENRR= 1 : PP=PP+5000 : FORA=0TO50 : GOSUB 1300 : COLOURRND ( 165 : PRINT 
§920, "Und nun alles wieder von vorn ! ! ! ” ; : NEXT : PR I NT S920 , CHR$ ( 30 5 ; 

770 IFSZ=21THENSZ=20 
780 GOTO360 

790 REH******** FLUG DES SPRINGERS ** 

800 A=XS+YS*40 

810 I FYS=RR+5ANDRY=- 1 THENG0SUB91 0 
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820 I FXS< 30RXS >36THEN 1 240 
830 I FYS= 1 9THENGOSUB990 
840 YS=YS+RY 

850 I FXS >3ANDXS< 36THENP=RNDC40-RR) : I FP=1 THENXS=XS+ 1 ELSEI FP=5THENXS=XS- 1 
860 XS=XS+RX 

870 PRIHTSA + 40 , ” ”;:PRINTSA,” ” ; 

880 C0L0UR5 : PR I NT § XS+ YS*40 , CHR$C 1 35) ; : C0L0UR6 : PR INT S XS + YS*40 + 40 , CHR$C 1 3 

6 ) ; 

890 RETURN 

900 REN ******* BALLON PLATZT ******* 

910 RX=0 : RY= 1 : P= 17368: I FPEEK C P + A ) <>141 ANDPEEKC P+ 1 + A ) < >141 ANDPEEK C P- 1 + A ) 
< > 1 4 1 THENRETURN 1 

920 GOSUB1310 

930 I FPEEK CP+1+A)=141 THENPZ=PZ+ 1 
940 I FPEEK CP—1 + A) = 1 41THENPZ=PZ+ 1 
950 IFPEEKCP+A)=141THENPZ=PZ+ 1 
960 PR I NT§ A-4 1 , " ” ; 

970 RETURN 

980 REN****** SPRUNG AUF TRAMPOLIN *** 

990 RY=RY*-1 
1000 P=PEEKC 17488+A) 

1010 I FP= 1 30THENRX= 1 
1020 I FP= 131 THENRX=0 
1030 I FP= 1 32THENRX=- 1 
1040 IFP=320RP= 1340RP=1 37THEN 1210 
1050 GOSUB1300 

1060 PRINTSA , " " : PRINTSA+40 , ” 

1070 RETURN 

1080 REN**** BEUEGUNG DES LAEUFERS **** 

1090 I FPEEK C &HF8FF)=0 THENRETURN 
1 100 A 1 =XL : I FPEEK C - 1 984 ) =32THENXL=XL-2 
1110 I FPEEK C- 1 984 )=64THENXL=XL+2 
1120 I FXL< 843THENXL=843ELSE I FXL >874THENXL=873 
1130 GOSUB800 

1140 PRINTSA1," ” ; : PR I NT § A 1 -37 , ” 

1 150 COLOUR1 1 : PR I NT SXL , CHR$( 1 30 >CHR$ C 1 3 1 )CHR$C 1 32) ; 

1160 C0L0UR5: PRINTSXL-38, ” ” ; CHR$C 1 33) ; : COLOUR9 

1170 ZL=ZL*-1 : I FZL=- 1THENPR I NTSXL+3 , CHR$ C 1 34) ; ELSEPRINTSXL+3,CHR$C 137) ; 
1180 GOSUB 1 330 
1190 RETURN 

1200 REN******* TOD EINES SPRINGERS *** 

1210 A=XS+YS*40: PR I NT SA,” : C0L0UR5 : PR I NTS A + 40 , CHR$( 1 35) ; : C0L0UR6 : PR I N 

TSA+80 ,CHR$C 136) ; 

1220 COLOURl : PRINTSA+80 , " PRI NTS A+40 , " ” ; 

1230 GOTO1250 

1240 A=XS+ YS*40 : GOSUB1300 : FORA1 =ATO800+XSSTEP40 : GOSUB 1300 : C0L0UR5 : PR I NT 
SA1 ,CHR$C135); : COLOUR6 : PR INTS A 1 +40 , CHR$ ( 1 36 ) ; : PRINTSA1-40 , ” :FORP=lTO 
50 : NEXT : NEXT 

1250 SZ=SZ-1 : IFSZ=0THEN1380 
1260 GOSUB 1320 

1270 A$=STR I NG$ C 34 , 32) : PRINT S803 , A$ ; : PRI NTS843 , A$ ; : PR I NT S 0 , A$ ; A$ ; 

1280 GOTO380 

1290 REN********** UNTERPROGRAMME ***** 

1300 PLAY CI , RNDC 4 ) +2 , 4 , 1 6) : SOUND1 2 , 1 0 : SOUND1 3 , 0 : RETURN 

1310 SOUND6 , 30 : S0UND7 , 7 : S0UND8 , 16:S0UND9, 16.-SOUND10, 16: S0UND12, 16: SOUND 
13,0: RETURN 

1320 F0RA=6T01STEP-1 :F0RA1 = 12T01STEP-1 : PLAY CI ,A,A1 , 10) : FORA2=1TO10 : NEXT 
: NEXT: NEXT :PLAYC1 , 1 , 1 ,0) : RETURN 

1330 PLAY CI ,6,5,15) : PLAY CI ,3,5, 1 5 ): SOUNDS , 0 : RETURN 

1 340 FORA= 1 T06 : FORA 1 = 1 TO 1 2 : PLAY CI, A, Al, 10): F0RA2= 1 TO 1 0 : NEXT : NEXT : NEXT : S 
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OUND8.0: RETURN 

1350 I FZZ=0THENFORA= 1 TOLEN ( A$ ) : PRINTHID$C A$ , A , 1 ) ; : FORA 1 = 1 T05 : PLAY C 1 ,6,6 
, 10) : NEXT: PLAY ( 1 , 1 , 1 ,0 ) : PRINTCHR$( 14) ; : NEXT: PRINT: RETURN 
1360 PRINTAS; : PRINT: RETURN 
1370 REI1******** REKORDLISTE ****** 

1380 CLS : PP=PP+PZ*50 : ZZ= 1 : IFPP<N1 C8)THEN270ELSEIFPP>N1 C 1 )THENCOLOURl 1 :G 
OSUB1340 : PRINTS440 , "Du hast den ersten Platz erreicht !” 

1390 COLOUR 1 : PR I NT : PR I NT "Sag ’ mir Deinen Namen:"; 

1400 N=9 : I NPUTN 1$CN):N1( N )=PP : I FLEN (N1$(N)) > 15THENPR I NT”Ei ngabe zu lang 
": GOTO 1400 

1410 N1$CN)=N1$(N)+STRI NG$ < 1 5- LEN (N1$(N)),32) 

1420 GOSUB1 480 : COLOUR 1 1 : PR I NT S 895 , "Rekord 1 i ste " : C0L0UR3 : PR I NTSTR I NG$C40 
,217) ; : COLOUR 1 : FORA= 1 T022 : PR I NTSTR I NG$ (40 ,248) ; : NEXT 

1430 A1=0: COLOUR 11 : FORA= 1 65TO805STEP80 : Al =A 1 + 1 : PR I NT S A , A 1 ; ” ”;N1$CA1) 

:PRINTUSING ”#####"; NI (Al); :PRI NT” ” ; : NEXT 
1440 PRINTS970, "Ueiter mit < RETURN > ” ; 

1450 COLOURRNDC 16) : FORA=80TO959STEP4 : IFPEEKC 1 7408+ A )=248THENPR I NT § A , CHR 
$ C 248 ) ; ELSE IFPEEK(-1984)=1THEN270 
1460 NEXT : GOTO 1 450 

1470 REI1********* RIPPLE SORT ******* 

1480 U=0:FORA=1TON-1 : IFN 1 ( A ) >=N 1 ( A + 1 )THEN 1500 
1490 SUAPN1CA) ,N1 (A+l ) : SUAPN 1 $ ( A ) , N 1 $C A+ 1 ) : V=1 
1500 NEXT: I FU= 1 THEN 1 480 
1510 RETURN 
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Minicalc arbeitet, wie ja der 
Name bereits vermuten läßt, 
nach dem gleichen Prinzip 
wie seine großen Brüder Visi- 
calc, Supercalc, Calcstar und 
was es da sonst noch gibt. Es 
gehört damit also zur Klasse 
der Spreadsheatprogramme. 
Da Minicalc in Basic ge- 
schrieben wurde und ausser- 
dem nicht zu umfangreich 
werden sollte, kann es natür- 
lich nur einen kleinen Aus- 
schnitt aus den vielfältigen 
Möglichkeiten der oben ge- 
nannten Programme bieten. 

Für die, die mit dem 
Begriff Spreadsheat nichts 


Minicalc 


anzufangen wissen, hier eine 
kurze Erläuterung: 

Spreadsheat kann man 
wohl am besten mit Arbeits- 
blatt übersetzen; und mit ei- 
nem solchen hantiert Mini- 
calc auch die meiste Zeit. 

Dieses Arbeitsblatt ist in 
Zeilen und Spalten unterteilt 
und in die dadurch entstehen- 
den Felder können Informati- 
onen abgelegt werden. 
Zwischen den einzelnen 
Feldern lassen sich nun Ver- 
knüpfungen definieren. Wird 


dann irgendwo ein Feld geän- 
dert, werden automatisch 
alle davon abhängigen Felder 
auch geändert. Im beige- 
fügten Ausdruck ergibt sich 
zum Beispiel der Bruttolohn 
(Feld C 4) aus Produkt aus C2 
(Bruttostundenlohn) und C3 
(gearbeitete Stunden im Mo- 
nat). Der entsprechende Aus- 
druck würde hier also C4= 
C2*C3 lauten. Immer wenn 
man nun eines der Felder C2 
oder C3 ändert, wird auch 
C4 automatisch auf den neu- 
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esten Stand gebracht. Die 
Zusammenhänge können 

natürlich noch wesentlich 
komplexer sein. Andere 
Felder könnten z. ß. wieder 
von C4 abhängen usw. Diese 
würden dann natürlich auch 
geändert werden. 

Nun aber speziell zu dem 
hier abgedruckten Programm 
Minicalc: 

Das Arbeitsblatt vob Mini- 
calc hat sechs Spalteh (A-F) 
und 25 Zeilen (1-25) von 
denen jeweils die Zeilen 1-13 
oder 13-25 auf dem Bild- 
schirm des Video Genie's ge- 
zeigt werden (Mit der 
CLEAR-Taste kann man von 
der einen auf die andere Sei- 
te wechseln). Jedes Feld faßt 
8 Zeichen. Der Cursor kann 
auf jedes Feld bewegt wer- 


I. ) Cursorsteuerung: 

Pfeiltasten 
Shift+Pfeiltasten - 
Newline 
Clear 

II. ) Ausdrücke: 


den und dann kann dort ein 
beliebiger Text (darf nicht 
mit einer Ziffer beginnen!) 
oder eine Zahl bis 99999.99 
eingegeben werden. Minicalc 
unterscheidet automatisch 
zwischen Texten und Zahlen 
und formatiert die Zahlen 
rechtsbündig mit zwei Nach- 
kommastellen. Zu den wei- 
teren Möglichkeiten von 
Minicalc sei auf die folgende 
Übersicht verwiesen. Bei 
kleineren Problemen läßt sich 
mit Minicalc recht komforta- 
bel arbeiten und wenn man 
den Preis der „großen" 
Calc-Programme bedenkt 
-mehrere hundert bis weit 
über tausend Mark- wartet 
man vielleicht gern ein paar 
Sekunden länger auf ein Be- 
rechnungsergebnis. 


Da das Listing auf einer 
Typenradschreibmaschine, die 
keinen vollständigen ASCII- 
Satz hat ausgedruckt wurde, 
mußte für einige Zeichen ein 
Ersatz gefunden werden. 
Speziell wird der Klammer- 
affe als Paragraphenzeichen 
und das Nummernzeichen als 
Pfundzeichen ausgegeben. 
Was gemeint ist, geht aber 
wohl immer aus dem Kontext 
hervor. 

Falls Sie keine Lust ha- 
ben alles abzutippen, kann 
vom Autor gegen einen Ver- 
rechnungsscheck oder DM 
15,— in Scheinen eine 
Diskette mit dem Programm 
bezogen werden (Bitte genau- 
es Format angeben.). 


Kommandobeschreibung 

******************** 



Cursor um eins nach links , rechts, oben, unten 
Cursor an linken, rechten, oberen, unteren Rand 
Cursor in erste Spalte 
andere Seite auf den Bildschirm 


Einleiten mit £ (Nummerzeichen). Blinkender Cursor in Kommandozeile 
Ausdruck muß folgender Syntax genügen: 

FN=FN&FN& &FN 

FN = Feldname : Al , A2 . . . . , F24 , F25 
& = einer der Operatoren (+,-,*,/ ,%,Ä) 

dabei bedeuten: + = Addition, - = Subtraktion, * = Multiplikation 

/ = Division, Ä = Potenz, % = Prozent 
Der Ausdruck darf keine Leerzeichen und Klammern enthalten. 
Ausdrücke werden strikt von links nach rechts abgearbeitet. 
Beispiele : A3=A1+A2; F15=A3%C5 bed. F15 sind C5% von A3; 
C1=A23/A1/A2 (entspr. A23/(A1*A2)) 

III.) Kommandos: 

Einleiten mit §. Blinkender Cursor in Statuszeile erscheint. 


LADE Filename 
RETTE Filename 
ZEIGE Feld 
LOESCHE Feld 
DRUCKE (A.R) 

AUTO (J,N) 


Arbeitsblatt Filename wird geladen. 
Arbeitsblatt Filename wird abgespeichert, 
der für Feld def. Ausdruck wird ausgegeben. 

" " " " " " geloescht 

A = Arbeitsblatt wird mit Feldbez. gedruckt 
R = " " ohne " " 

J = Automatisches Updating nach jeder Änderung 
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N = Kein Updating 
Loescht Arbeitsblatt 


NEU 

Zwischen Befehl und Parameter muß genau ein Leerzeichen stehen. 
Abkürzungen sind nicht erlaubt. 


1 

2 

3 

4 

5 

6 
7 


A 

B 

C 

D 

E 

F 

STD. /BR 
STD . /MO 
B-LOHN 

)) 

)) 

10.00 

88.00 

880.00 

DM 

STUNDEN 

DM 

! 

DM l 

DM ! 

DM ! 

I 






ABZ. RV 
ABZ. BA 

AB 7 tfV 


52.80 
84.48 
oi 1 ? 

RV % =) 
BA % =) 
KV % =) 

6.00 

q 



zJ • DU 
0 AC\ 




cL • HU 

SUMME AB 
N-LOHN 


158.40 

721.60 

DM 

DM 





— 


12 

13 STD. /NET 


8.20 DM 


TRS80 


III 


Beispielausdruck mit DRUCKE, A 


1 i *»*»*************•»*******•»*****«**■***•**************•)(■******** 

2 •* MINICALC VI. 3 Erstellt: 01.08.84 * 

3 '* COPYRIGHT by Thomas Weinstein * 

4 i * * 

5 ' * * 

6 '* SYSTEM: VIDEO GENIE I, II, III, TRS 80, KOMTEK * 

7 DISK-BASIC unter NEWDOS 80 V2.0 * 

g i************************************************************ 

9 * 

10 i******** Beginn Hauptprogramm ******** 

20 CLS: PRINT §400, "BITTE WARTEN SIE EINEN MOMENT !"; 

30 CLEAR 5000 : DIM AB$(5,25), AW$( 20) , CP(5, 13) , L$(100) 

40 GOSUB 4000 'INITIALISIEREN DER VARIABLEN UND ARRAYS. 

50 CLS: GOSUB 100 'ARBEITSBLATT OBERE HAELFTE DRUCKEN. 

60 GOSUB 2000: GOTO 60 'HAUPTSCHLEIFE KANN NUR UEBER KOMMANDO 
70 ' "END" VERLASSEN WERDEN. 

80 ********* Ende Hauptprogramm ******** 

90 • 

100 ********* Druckt Arbeitsblatt ******** 

110 ' T= 0 ) Obere Haelfte des Blattes wird gedruckt. 

120 ' T= 1 ) Untere Haelfte des Blattes wird gedruckt. 

130 PRINT §0, "KOMMANDO: " 

140 FOR L=0 TO 5 : PRINTTAB (6+10*L) ; CHR$( 65+L ) ; :NEXT L 
150 PRINT 
160 T$ = "££" 


170 FOR L=1 TO 13: PRINTUSINGT$;L+12*T:NEXT L 
180 FOR M=0 TO 5 
190 FOR N=1 TO 13 

200 PRINT§CP(M,N) ," ";:GOSUB 7000: PRINT" 

210 NEXTN.M 

220 PRINT§CP(0, 1 ) , CHR$ (183) ; :PRINT§CP(0 ,l)+9 ,CHR$(187) ; 
230 PRINT§CP(0, l)+l, ; «STARTPOSITION 
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235 1=0 : J=1 
240 RETURN 

250 i******** ENDE ARBEITSBLATT DRUCKEN ******** 

260 ' 

1999 i******** CURSORSTEUERUNG UND KOMMANDOAUSFUEHRUNG ******** 

2000 I$=INKEY$ : IFI$=" "THEN2000 
2005 AI=I : AJ=J 

2010 IFI$=CHR$ (24) THEN 1=0 : GOSUB3000 : RETURN 

2020 IFI$=CHR$( 25) THEN 1=5 : GOSUB3000: RETURN 

2030 IFI$=CHR$( 26) THEN J=13 : G0SUB3000: RETURN 

2040 IFI$=CHR$ ( 27 ) THEN J=1 : G0SUB3000: RETURN 

2045 IFI$=CHR$(31) THEN T=l-T: G0SUB100 : RETURN 

2050 IFI$=CHR$(9) THEN 1=1+1: G0SUB3000: RETURN 

2060 IFI$=CHR$(8) THEN 1=1-1: G0SUB3000: RETURN 

2070 IFI$=CHR$ (10) THEN J=J+1: G0SUB3000 : RETURN 

2080 IFI$=CHR$( 13) THEN J=J +1 : I = 0 : G0SUB3O00 : RETURN 

2090 IFI$=CHR$ (91) THEN J=J-1 : G0SUB3000 : RETURN 

2095 'FALLS ZEICHEN="§" DANN GEHE IN KOMMANDOMODUS 

2100 IFI$=" § " THEN 

PRINT § 10, CHR$( 14) ; :GOSUB5000:PRINTCHR$(15) ; : G0SUB3000 : RETURN 
2105 IFI$="£" THEN 

PRINT§ 10 , CHR$ ( 14) ; : TI =AI : T2=AJ : G0SUB800+ : PRINTCHR$ (15);: AI=T1 : AJ= 
T2 : GOSUB3000 : RETURN 

2110 GOSUB 6000 'LIES DATEN IN FELD EIN 
2120 IF NOT AU THEN 2150 

2120 PRINT§10, "BITTE WARTEN ! ICH RECHNE. 

2130 GOSUB 13000 

2140 PRINT§10, "FERTIG ! SIE KOENNEN WEITERMACHEN. 

2150 PRINTCHR$( 15) ;: RETURN 
2160 t ******** ENDE ABFRAGE ******** 

2170 ' 

2999 ********* DRUCKE FELD ******** 

3000 IF 1)5 THEN 1=0 
3010 IF 1(0 THEN 1=5 
3020 IF J ) 13 THEN J=1 
3030 IF J(1 THEN J=13 
3040 PRINT§CP( AI , AJ ) " ; :M=AI :N=AJ :G0SUB700+ : PRINT" 

3050 PRINT§CP(I , J ) , CHR$ ( 183) +AB$ (I,J+12*T) +CHR$ ( 187 ) ; 

3060 PRINT § CP ( I , J ) +1 , ; 

3070 RETURN 

3080 i******** ENDE DRUCKE FELD ******** 

3090 ' 

3999 i******** INITIALISIERUNG ******** 

4000 FOR 1=0 TO 5 : FOR J=1 TO 25 : AB$ ( I , J ) =STRING$ ( 8 , " 

") :NEXTJ,I 

4010 FOR 1=0 TO 5 

4020 FOR J=1 TO 13 

4030 CP( I , J )= 130+64* ( J-l ) +1*10 

4040 NEXT J , I 

4050 AU=-1 : AZ=0 : T=0 : F$="£££££.£=" :I=0 : j=i 
4060 RETURN 

4070 ********* ENDE INITIALISIERUNG ******** 

4080 ' 

4999 i******** KOMMANDOMODUS ******** 

5000 B$= " " : PRINTCHR$ (15);: PRINTSTRING$ ( 45 , " 

") ; :PRINT§10,CHR$( 14) ; 

5010 I$=INKEY$ : IFI$=" "THEN5010 

5020 IF I$=CHR$(8) THEN PRINTI$ ; : B$=LEFT$ ( B$ , LEN( B$ ) -1 ) : G0T05010 
5030 IF 1$ ( ) CHR$ ( 13 ) THEN B$=B$+I$ : PRINTI$ ; ; G0TO5010 
5040 IF B$="NEU" THEN PRINTCHR$(15) ; :RUN 
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5045 IF LEFT$ ( B$ , 4 ) =" AUTO" THEN AU=RIGHT$ ( B$ , 1 ) = "J" : RETURN 

5060 IF LEFT$ ( B$ , 5 )= "RETTE" THEN GOSUB 9000 : RETURN 

5065 IF LEFT$ (B$ , 6 )= "DRUCKE" THEN PRINTCHR$( 15) ; : GOSUB 18000 : 

RETURN 

5070 IF LEFT$ (B$ , 4 ) ="LADE" THEN G0SUB10000 : RETURN 

5080 IF LEFT$(B$,5)="ZEIGE" THEN 

PRINT §10, CHR$( 15) ; : G0SUB1 2000 : RETURN 

5085 IF LEFT$ (B$ , 7 )="LOESCHE" THEN 

PRINT §10,CHR$( 15) ; : GOSUB 1 2500: RETURN 

5090 IF B$="END" THEN CMD" BREAK ,Y" : CLS :END 

5100 PRINT" FEHLER! KOMMANDO NICHT BEKANNT."; 

5110 RETURN 

5120 ********* ENDE KOMMANDOMODUS ******** 

5130 ' 

5999 ********* LIES DATEN IN FELD EIN ******** 

6000 T$=" " : GOTO 6020 
6010 

I$=INKEY$ : IFI$=" "ORI$=CHR$ ( 10) ORI$=CHR$ { 91 ) ORI%=CHR$ ( 9 ) THEN6010 
6020 IF I$( )CHR$(8)ANDI$( ) CHR$ ( 1 3 ) THENPRINTI$ ; 

6025 IF I$=CHR$ ( 13) THENG0SUB610+ : RETURN 
6030 IF I$=CHR$ ( 8 ) AND T$()"" THEN 
PRINTI$ ; : T$=LEFT$ ( T$ , LEN ( T$ ) -1 ) :G0T06010 
6040 IF I$=CHR$ ( 8 ) THEN GOTO 6010 
6050 T$=T$+I$ 

6060 IF LEN(T$)(9THEN6010ELSEI%=CHR$(8) :G0T06020 

6070 GOTO 6010 . • - 

6099 ********* UP ERGAENZT LAENGE DES FELDES AUF 8 ZEICHEN 
******** 

6100 IF LEN(T$) (8THENT$=T$+STRING$(8-LEN(T$) ' 

6110 AB$ (I,J+12*T) =T$ 

6120 RETURN 

6130 ********* ENDE ERGAENZEN ******** 

6140 ' 

6999 ********* FELD FORMATTIEREN ******** 

7000 T$=AB$(M,N+12*T) : V=VAL(T$) 

7010 IE V()0 THEN PRINTUSINGF$ ; V; ELSE PRINTT$ ; 

7020 RETURN 

7030 ********* ENDE FELD FORMATTIEREN ******** 

7040 ' 

7999 ********* AUSDRUCK EINLESEN ******** 

8000 A$=" " : PRINTCHR$ (15);: PRINT" 

"; : PRINT §10 , CHR$ (14) ; 

8010 I$=INKEY$ : IFI$=""THEN8010 
8020 IF I$=CHR$ ( 8 ) THEN PRINTI$ ; : A$ =LEFT$ ( A$ , LEN( A$ ) -1 ) : G0T08010 
8030 IF 1$ ( ) CHR$ (13) THEN A$=A$+I$ : PRINTI$ ; : G0T0801O 
8040 P=INSTR( A$ , "=" ) : LS$=LEFT$ ( A$ , P-l ) 

8050 GOSUB 8100 'IST FUER DIESES FELD BEREITS ANWEISUNG 
VORHANDEN? 

8060 IF F THEN AW$(L)=A$ : RETURN 

8070 IF AZ (41 THEN AZ=AZ+1 : AW$( AZ)=A$ : L=AZ : CMD"F=SS" ,N: G0T014000 
ELSE PRINT §10 , "KEIN PLATZ FUER WEITERE ANWEISUNGEN VORHANDEN!"; 
8080 RETURN 

8090 ********* EN DE AUSDRUCK EINLESEN ******** 

8091 ' 

8099 ********* NACH ANWEISUNG MIT LINKER SEITE SUCHEN ******** 

8100 F=0:L=1 

8103 IF L)AZ THEN RETURN 
8105 P=INSTR(AW$(L) ,"=") 

8110 IF LEFT$(AW$(L) ,P-l)=LS$ THEN F=-l : RETURN 
8120 IF L(AZ THEN L=L+1 : GOTO 8105 ELSE RETURN 
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8130 i******** ENDE SUCHEN ******** 

8140 ' 

8999 ********* SPEICHERE ARBEITSBLATT ******** 

9000 FI$=RIGHT$ ( B$ , LEN ( B$ ) -6 ) 'FILENAME 

9010 PRINT§10, "BITTE WARTEN SIE ! " 

9020 0PEN"0",1,FI$ 

9030 FOR 1=0 TO 5 : FOR J=1 TO 25 : PRINT£1 , AB$ ( I , J ) : NEXTJ.I 
9040 IF AZ)0 TUEN FOR L=1 TO AZ : PRINTL1 , AW$( L) : NEXTL 
9050 CLOSE : PRINTCHR$ ( 15 ) ; : RETURN 
9060 ********* ENDE SPEICHERN ******** 

9070 ' 

9999 '********; LADE ARBEITSBLATT ******** 

10000 FI$=RIGHT$(B$,LEN(B$)-5) 'FILENAME 
10010 OPEN" I ", 1 , FIS 

10020 FOR 1=0 TO 5 : FOR J=1 TO 25 : LINEINPUTE1 , AB$ ( I , J ) : 
NEXTJ.I 
10030 AZ=0 

10040 IF NOT EOF ( 1 ) THEN AZ=AZ+1 : LINEINPUT£1 , AW$( AZ) : GOTO 
10040 

10050 PRINTCHR$ ( 15 ) ; : G0SUB10+ : CLOSE : RETURN 
10060 '******** ENDE LADEN ******** 

10070 ' 

11999 ********* ZEIG, KOMMANDO ******** 

12000 LS$=RIGHT$(B$,LEN(B$)-6) 'ARBEITSFELD ABTRENNEN 
12010 IF AZ=0 THEN 12050 
12020 GOSUB 8100 

12030 IF F THEN PRINT§ 10 , AW$ ( L ) ; ELSE PRINT§10 , "KEIN AUSDRUCK 
GEFUNDEN !"; 

12040 RETURN 

12050 ********* ENDE ZEIG KOMMANDO ******** 

12060 ' 

12499 ********* LOESCHE AUSDRUCK ******** 

12500 LS$=RIGHT$(B$,LEN(B$)-8) 

12510 GOSUB 8100 
12520 IF NOT F THEN PRINT§ 10 , "AUSDRUCK NICHT GEFUNDEN !"; : 
RETURN 

12530 FOR K=L TO AZ-1 : AW$ ( K ) =AWS ( K+l ) : NEXTK 
12540 AZ=AZ-1 ■* . 

12550 RETURN 

12560 ********* ENDE AUSDRUCK LOESCHEN ******** 

12570 ' 

12999 ********* AUSDRUCK AUSWERTEN ******** 

13000 I$=CHR$ (1+65) :J$=STR$(J) : J$=RIGHT$ ( J$ , LEN( J$ ) -1 ) :LS$=I$+J$ 
13010 Z=-l : Y=-l 

13020 FOR L=1 TO AZ 

13030 IF INSTR(AW$(L) ,LS$) )3 THEN GOSUB 14000 'WERT BERECHNEN 
13040 NEXTL 

13050 IF Y THEN Y=NOT Y ELSE RETURN 
13060 K=0 

13070 IF K)Z THEN RETURN 

13080 LS$=L$ ( K ) :K=K+1 : G0SUB1302+ : G0T013070 
13090 ********* END E AUSDRUCK AUSWERTEN ******** 

13100 ' 

13999 ********* W ert BERECHNEN ******** 

14000 A$=AW$(L) : P=INSTR(A$ , "=" ) : ZW$=LEFT$ ( A$ , P-l ) 

14010 Z=Z+1 : L$ ( Z ) =ZW$ 

14020 R$=RIGHT$ ( A$ , LEN( A$ )-P ) 

14030 GOSUB 15000 'EXTRAHIERE NAECHSTES SYNTAKTISCHES ELEMENT 
AUS R$ 

14040 GOSUB 17000 'SETZE FELDNAMEN IN KOORDINATEN UM 
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14050 ER=VAL(AB$(I1,J1) ) ' ER=ERGEBNIS DES AUSDRUCKS 
14060 IF R$= " " THEN GOTO 14200 'ERGEBNIS IN ARBEITSBLATT 
EINTRÄGEN 
14070 GOSUB 15000 
14080 IF S$="+" THEN GOSUB 

1 5000 : G0SUB1 7000 : ER=ER+VAL ( AB$ ( II , J 1 ) ) : G0T014060 
14090 IF S$="-" THEN GOSUB 

1 5000 : G0SUB1 7000 : ER=ER-VAL ( AB$ ( II , J1 ) ) : G0T014060 
14100 IF S$="*" THEN GOSUB 

15000 : G0SUB1 7000 : ER=ER*VAL ( AB$ ( II , J1 ) ) : G0T014O60 
14110 IF S$="/" THEN GOSUB 

1 5000 : G0SUB17000 : ER=ER/ VAL ( AB$ ( II , J1 ) ) : G0T014060 
14120 IF S $="% " THEN GOSUB 

1 5000 : G0SUB1 7000 : ER=ER/100*VAL ( AB$ ( I 1 , J1 ) ) : G0T014060 
14130 IF S$="Ä" THEN GOSUB 

1 5000 : G0SUB1 7000 : ER=ERÄVAL ( AB$ ( II , J 1 ) ) : G0T014060 
14200 S$=ZW$: GOSUB 17000 : E$=STR$(ER) 

14210 IF LEN(E$) ( 8 THEN E$=E$+STRING$ ( 8-LEN( E$ ) , " ») 

14220 AB$ ( II , J1 ) =E$ 

14230 M=I1 : N=J1 

14235 IF ( N) 12 AND T=l) OR (N(14 AND T=0) THEN 
PRINT §CP(M,N-12*T) :N=N-12*T:G0SUB7OOO: PRINT" 

14240 RETURN 

14250 ********* ENDE WERTE BERECHNEN ******** 

14260 ' 

15000 C$=LEFT$ ( R$ , 1 ) 

15010 

IFC$=" + "ORC $="*"ORC$="-"ORC$="/"ORC$ ="%"ORC$ ="Ä"THENS$ =C$:G0SUB15 

500: RETURN 

15020 

IFC$ ) " § "ANDC$ ( "G"THENS1$=C$ : GOSUB 1 5500 : GOSUB 15000 : S$=S1$+S$ : RETUR 
N 

15030 

IFC$ ) "0" ANDC$ ( ="9"THENS$=C$ : GOSUB 15500: IFS$=" 1"0RS $="2"THENG0SUB1 
6000 

15040 RETURN 

15500 R$=RIGHT$ ( R$ , LEN(R$ )-l ) : RETURN 
16000 

IFLEFT$ ( R$ , 1 ) ) = °+"ANDLEFT$ ( R$ , 1 ) ( =" 9"THENS% S%+LEFT$ ( R$ , 1 ) : G0SUB1 
5500 

16010 RETURN 

17000 I1$=LEFT$(S$,1) :Il=ASC(Il$)-65 
17010 J1$=RIGHT$ ( S$ , LEN ( S$ ) -1 ) : J1=VAL(J1$) 

17020 RETURN 

17030 « ******** ENDE AUFSPALTEN ******** 

17040 ' 

17999 ********* AUSDRUCKEN ******** 

18000 P$=RIGHT$ ( B$ , LEN ( B$ ) -7 ) 

18005 IF INP( 253) ( )63 THEN PRINT§10, "DRUCKER NICHT BEREIT 
!!!!!";: RETURN 

18010 IF P$=" A" THEN F=-l ELSE F 0 

18020 IF F THEN FOR L=0 TO 5 : LPRINTTAB( 6010*L ) ; CHR$ ( 65+L ) ; : NEXT 
L 

1 8030 LPRINT : LPRINTSTRING$ ( 65 , ) 

18040 T$ = "££" 

18050 FOR N=1 TO 25 

18055 IF F THEN LPRINT : LPRINTUSINGT$ ; N; ELSE LPRINT 
18060 FOR M 0 TO 5 

18070 LPRINT" ";:GOSUB 18500 : LPRINT" 
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18080 NEXTM.N 

18082 IF NOT F THEN RETURN 

18083 LPRINT : LPRINT 

18084 LPRINT" ARITHMETISCHE 

AUSDRUECKE" : LPRINT : LPRINT 
18086 FOR K=1 TO AZ : LPRINTAW$(K) :NEXTK 
18090 RETURN 

18100 ********** ENDE AUSDRUCKEN ******** 

18110 ' 

18499 ********* FORMATIEREN ******** 

18500 P$=AB$(M,N) :V=VAL(P$) 

18510 IF V()0 THEN LPRINTUSINGF$ ; V ; ELSE LPRINTP$; 
18520 RETURN 

18530 ********* ENDE FORMATIEREN ******** 


U. Groke 


FUCHSJAGD 


10 LGR: CLSs CHAR2 

11 FKEY1="RUN 

12 FKEY2="RUN 

13 FKEY3= "RUN 

14 FKEY4=" RUN 

16 FKEY5="RUN 

17 FKEY6="RUN 

19 FKEY8="NEW 

20 Q=45: Z=0: V=0:0=4 
30 TI =959 

40 GDSUB 2450 : GOSUB 140 

50 C0L0UR3: PRINT@172j CHR$ ( 132) 5 CHR$ (133 ) ; 

(129) 

60 C0LDUR4: PRINT© 176.- " Fuchs Ja» t" 

70 PRINTS329, "Der Jae?er wird mit den" ■“ PRINT@369? OHRS (253) ? " und "CHR$ 
(255)?" gesteuert" 

80 PRINT@446? "Ni t der Leertaste schiesst er" 

90 PRINT@526j "W enn du 3 Fuechse erlegt hast " J PRINT@606? "bis du der Sie 
9er" • 

100 PRINT0926, "von Ulrich GrDke 516 Dueren"; 


250 PDKE &HF4ÖB ? 248 
260 PDKE S<HF40C,224 
270 PDKE &HF40D,32 
280 F'OKE &HF40E» 16 
290 PDKE &HF40F,8 
300 PQKE &HF410,0 
310 PDKE &HF411,16 
320 PDKE &HF412? 16 
330 PDKE 8<HF413? 255 
340 PDKE &HF414,255 
350 PDKE &HF415.-S 
360 POKE S<HF416,4 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


GOSUB 

CLS 

GDSUB 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


3600 

1590 

?:HF 400 ? 0 
&HF401, 16 
&HF402? 16 
&HF403: 255 
&HF404? 255 
&HF405? 8 
&HF406, 16 
&HF407 j 32 
&HF408.-0 
?<HF409.,0 
&HF40A? 7 




Fuchsjagt "CHR* < 128) ? CHR* 



(1 

Im 
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fl 

370 

POKE 

?<HF417 :■ 2 

970 POKE &HF453, 16 


' 1 

380 

POKE 

&HF418? 0 

980 POKE 3<HF454,16 



390 

POKE 

&HF419,0 

990 POKE &HF455.- 28 


5 

400 

POKE 

8<HF 4 1 A > 0 

1000 

POKE 

&HF456,27 



; 410 

POKE 

&HF41B,255 

1010 

POKE 

&HF457 * 24 



420 

POKE 

&HF41C.-224 

1020 

POKE 

&HF45S * 24 


m 

430 

POKE 

&HF41D,32 

1 030 

POKE 

&HF459,25 


' H 

f 440 

POKE 

?<HF41 E ? 64 

1040 

POKE 

&HF45A ? 26 


H 

450 

POKE 

&HF41F.- 64 

1050 

POKE 

&HF45B.> 28 



460 

POKE 

&HF420, 0 

1060 

POKE 

&HF45C, 232 


■ :SI 

470 

POKE 

&HF421 ,0 

1 070 

POKE 

S/.HF45D.24 


| 

480 

POKE 

&HF422? 224 

1 080 

POKE 

S/.HF45E, 24 


1 i 

490 

POKE 

&HF423? 3 1 

1090 

POKE 

&HF45F * 24 



500 

POKE 

&HF424 ? 7 

1 100 

POKE 

&HF460,’ 4 


gg? ! 

510 

POKE 

&HF425,4 

1110 

POKE 

&HF461,4 


If 

520 

POKE 

&HF426? 8 

1120 

POKE 

&HF462, 4 


1 

530 

POKE 

&HF427, .16 

1130 

POKE 

&HF463, 28 


1 

540 

POKE 

8<HF428p 0 

1140 

POKE 

&HF464, 60 



550 

POKE 

&HF429.-B 

1150 

POKE 

&HF465, 126 


M ' 

560 

POKE 

&<HF42A? 8 

1160 

POKE 

&HF466» 62 


p i 

570 

POKE 

&HF42B? 255 

1170 

POKE 

8<HF467,28 


11 i 

580 

POKE 

&HF42C,255 

1180 

POKE 

&HF468 ? 24 


Js i 

590 

POKE 

&HF42Dj 16 

1 190 

POKE 

&HF469 ? 24 


H \ 

600 

POKE 

&HF42E ? 8 

1200 

POKE 

&HF46A,60 



610 

POKE 

&HF42F,4 

1210 

POKE 

&HF46B> 68 


8 J 

620 

POKE 

8<HF430,0 

1220 

POKE 

S/.HF46C 132 



630 

POKE 

&HF431 jÖ 

1 230 

POKE 

&HF46D, 68 


H 1 

640 

POKE 

&HF432? 0 

1240 

POKE 

&HF46E ? 36 


| 

650 

POKE 

8<HF433.- 255 

1250 

POKE 

&HF46F » 36 


i 

660 

POKE 

&HF434? 7 

1260 

POKE 

&HF470» 24 


|| ; 

670 

POKE 

?<HF435,4 

1270 

POKE 

&HF471.-24 


|| 1 

'1 680 

POKE 

8<HF436r 2 

1280 

POKE 

&HF472? 60 


| i 

690 

POKE 

&:HF437,2 

1290 

POKE 

&HF473? 34 


J! i- 

700 

POKE 

&HF43B,0 

1300 

POKE 

&HF474 > 33 


J| ]' 

710 

POKE 

&HF439^8 

1310 

POKE 

!<HF475 ? 33 


m \ 

720 

POKE 

?vHF43A,8 

1320 

POKE 

?<HF476,33 


it i 

730 

POKE 

&HF43B,255 

1 330 

POKE 

&HF477,33 


m 

740 

POKE 

&HF43C,255 

1340 

POKE 

&HF480j 32 



750 

POKE 

&HF43D, 16 

1350 

POKE 

&HF481 ? 9 


it 

760 

POKE 

?<HF43E, 32 

1360 

POKE 

S<HF4B2j 32 


M !! 

770 

POKE 

?/HF43F ? 64 

1370 

POKE 

?/.HF483j 5 


1':; il 

780 

POKE 

&HF440, 16 

1380 

POKE 

S/.HF484> 16 


H 

790 

POKE 

&HF441 16 

1390 

POKE 

&HF4B5> 0 


W 

800 

POKE 

&HF442, 16 

1400 

POKE 

&HF4B6, 10 


1 ! i.; 

810 

POKE 

&HF443, 16 

1410 

POKE 

&-HF487,0 



820 

POKE 

S/HF444, 17 

1420 

POKE 

8<HF488> 0 


1 i 

830 

POKE 

&HF445, 1B 

1430 

POKE 

&HF489:. 0 


1' i 1 

840 

POKE 

?<HF446? 28 

1440 

POKE 

8<HF48A j 0 


|l|'. i.j 

B50 

POKE 

&HF447, 24 

1450 

POKE 

&HF48B, 24 


f ! ' 

860 

POKE 

&HF448, 24 

1460 

POKE 

&HF48C , 24 


# ; 1 

870 

POKE 

&HF449,24 

1470 

POKE 

8<HF48D, 0 


11 ii ! 

380 

POKE 

2<HF44A> 24 

1480 

POKE 

&HF48E,0 


m !ü 

890 

POKE 

&HF44B? 28 

1490 

POKE 

&HF48F,0 


ffl ji 

900 

POKE 

&HF44C, 234 

1500 

POKE 

&HF478:- 24 

]|: i i 

910 

POKE 

&HF44D > 25 

1510 

POKE 

&HF479, 60 

m i 

920 

POKE 

8<HF44E,24 

1520 

POKE 

&HF47A, 126 

i 

930 

POKE 

&HF44F,24 

1530 

POKE 

&HF47B,255 



940 

POKE 

&HF450, 32 

1540 

POKE 

&HF47C.- 131 


ijj | 

950 

POKE 

&HF451 32 

1550 

POKE 

8.HF47D, 102 



960 

POKE 

8<HF452? 32 

1560 

POKE 

&HF47E> 0 




Hiermit bestelle ich Abonnement(s) der Zeitschrift 

GENIE DATA. Mit dar großen Programm-Sammlung für GENIE I, II, III, 

TR5 80 und COLOUR GENIE - Programmen. 

Mir ist bekannt, daß ich das Abonnement zu Jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 

Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement. (Sechs Ausgaben) frei Haus. 

Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 

Es ist mir bekannt, daß ich innerhalb acht Tagen nach der Abo-Bestellung das Recht 
habe, von dem Abo-Auftrag zurückzutreten ohne irgendwelche Unkosten. 

Die zusätzliche Lieferung der Programm-Sammlung gilt ab Ausgabe 5/84 bis auf Widerruf 
Mit obigen Bedingungen erkläre ich mich einverstanden: 


Unterschrift Datum 

Boi Jugendlichen unter 18 Jahron. Untorschrift eines Erziehungsberechtigten 


KONTAKT-KARTE 


hat meine Beachtung 


Ihr Inserat in der GENIE DATA Nr. 
gefunden. 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Anzahl 


Datum 


Unterschrift 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 


GENIE 


K LEI N-ANZEI GEN-BESTELLUNG 


Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG ! 


Unterschrift 


Datum 


Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 



Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 


O 1/1 Seite O 1/8 

O 1/2 Seite O Wir 

O 1/3 Seite O Bitte 

O 1/4 Seite Ihre/ 
GENIE DATA 

O WER-WAS-WO-Einkaufsführer 
Inseratgrößa 55x45 mm DM 55,- + 14% MWSt, 
abzüglich 10% Rabatt für 6x Erscheinen. 
Satzkosten für 4 Zeilen einmalig DM 15,- 
Jodo waitoro Zoile Satz kostet OM 7,50 


O 1/8 Seite 

O Wir sind interessiert an Kleinanzeigen 
O Bitte, senden Sie uns 

Ihre Anzeigenpreisliste zu ! 


O Neusatz muß 
von Ihnen 
erstellt werden ! 





Absender: 


Straße 


POSTKARTE 


Für private Abonnenten der GENIE DATA 
sind die ersten drei Zeilen der Kleinanzeige 
kostenlos. 

Jede weitere Zeile 5,50 DM 

Private Kleinanzeigen pro Zeile 6,00 DM 

Geschäftliche Kleinanzeigen 
pro Zeile 7,50 DM 

Chiffre Gebühr 9,00 DM 

Alle oben angegebenen Preise werden 
Ihnen zuzüglich der gesetzlichen MWSt, 
berechnet. Der Betrag ist sofort nach 
Erhalt der Rechnung rein netto zahl- 
bar. 

V/84 


HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARI ENFE LS/Taunus 



POSTKARTE 


HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARIENFELS/Taunus 


V/84 




Absender: 


Name 


Straße 


(PLZ) Ort 



Straße 

v/84 Piz Ort 



An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARIENFELS/Taunus 
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1610 
1620 
1630 
1 640 
1650 
1660 
1670 
1 6Q0 
1690 
1700 
1710 
1720 
1730 
1740 
1 750 
1760 
1770 
1780 
1790 
1 B00 
1810 
1 820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1 900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


1570 PDKE &HF47F?0 
1580 RETURN 

1590 FDR A=40 TO 600 STEP 160 

1600 C0LÜUR2: PRINTSA? " * 3 3 ♦♦ 3 **♦:?: 3 <!> •!■<»► 3 * 4- «* 

3 ♦ 4 3 + *?# 4 -**$* 


NEXT A 

K=901 : GOSUB 140 

Q-Q-15: M=Q: E2=l 18s Z=Z+300 

PRINTS920? "Punktes "5 

COL0UR2: F'RINTSK? CHR* ( 142) : C0L0UR3: PRINTSK-40? CHR* (140) 

C=-42: D=0 

CI =C: CI =C 1+80 

C2=RND < 1 B> *2: C2=C2+D 

IF CI >600 THEN 4130 

IF C 1 >C2 THEN GOSUB 2070 ELSE GOSUB 18B0 
D=D+80: GOTO 1670 

C2 = RND (38 ) +880 : C 1 =C : I F C1>C2 THEN 1730 ELSE 1800 

FOR C=C1T0882 STEP-2 

C0L0UR3: PRINTSC? CHR* (128)5 CHR* (129) 

GOSUB 2310: GOSUB 2400* PRINTSC» " " 

IF C=K THEN 2630 

C0L0UR3: PRINTSC-1 ? CHR* (130) 5 CHR* ( 131 ) 

GOSUB 2310* GOSUB 2400: PRINTSC-1 ? " "*IF C~1=K THEN263X 

NEXT C: GOTO 1660 

FOR C=C1 TO 916 STEP 2 

C0L0UR3* PRINTSC» CHR* ( 132) 5 CHR* (133) ? 

GOSUB 2310: GOSUB 2400: PRINTSC? " 

IF C+1=K THEN 2630 / 

C0L0UR3: F'RI NTSC+1 ? CHR* ( 134) ; CHR* ( 135) 5 ( 

GOSUB 23 1 0 : GOSUB 2400 : PR I NTSC+ 1 ? " “ % V®’ 

THEN 2630 ■ .veÄ 

NEXT g§ GOTO 1660 

FOR-g,«#l TO C2 STEP 2 • 

T=c+:i|pi^ili^:y' : ■ 'I JM 

C0L0UR3: PRINTSC? CHR* (132)5 CHR* (133) 

Z=Z*J S-PR I NTS928 Z 5 ; 

GOSUB 2310: GOSUB 2400 
PRINTSC?:'' " 

T=C*2>U=C+ 1 

C0L0UR3: PRINTSC+1 ? CHR* ( 134) ? CHR* ( 135) , 

Z = Z-i : PR INT ©928? Z 5 I 

GOSUB 2310: GOSUB 2400: PRINTSC+1 ? " 11 : NE VT "** "■ 

T=C+40 

C0L0UR3: PRINTSC? CHR* ( 136) * PRINTSC+40? CHR 
Z=Z-1 : PRINTS928? Z5 

G0SUB2390 *!&{| 

PRINTSC?" " : F’RINTSC+40? " " 

T=C+80 

C0L0UR3* PRINTSC+40? CHR* ( 138) : PRINTSC+80. Mlhtlt 1 *** * £' , 
Z=Z-1 : PRINTS928? Z 5 

G0SUB2390: PRINTSC+40? " " : PRINTSC*™ fj “f «JlptyitN 8 § 
FORC=C 1 TO C2 STEP -2 

T=C : U=C+ 1 v -JSSaM ' 

C0L0UR3: PRINTSC? CHR* (128)5 CHR* ' - 
Z=Z-1 : PRINTS928? Z 5 
GOSUB 2310: GOSUB 2400 
PRINTSC? » " 

T=C-1 : U=C 

C0L0UR3: PRINTSC-1? CHR* < 130) I M > 
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2150 Z=Z-i:PRINT@92B, Z; 

2160 GOSUB 2310: GOSUB 2400 
2170 PRINTSC-1 , " 11 

2 ISO NEXT C 
2190 T=C+4Ü 

2200 C0L0UR3: PRINTllC , CHR* (136) 

2210 PRINT@C+40,CHR$(137> 

2220 Z=Z-1:PRINT@92B,Z; 

2230 G0SUB2390 

2240 PRINTHC," ” : PRI NTSC+40, ” " 

2250 T=C+80 

2260 C0LDUR3: PRINTSC+40, CHR* ( 138) : PRINTSC+BO, CHR$ (139) 

2270 Z=Z-1 : PRINT@928, Z 5 
2280 G0SUB2390 

2290 PRINT0C+4O, " " : PRINTSC+BO? " " 

2300 RETURN 
2310 L=PEEK ( - 1 984 ) 

2320 FOR 1= 1 TO M : NEXT I 
2330 IF L=0 THEN RETURN 

2340 PRINT@K-40, " " 

2350 IF L=64 AND K<917 THEN K=K+1 
2360 IF L=32 AND K>881 THEN K=K-1 

2370 C0L0UR2 : PR I NT@K , CHR* (141): C0L0UR3 : PR I NT0K-4O * CHR* (140) 

2380 RETURN 

2390 FDRI=1T0M: NEXTI : RETURN 
2400 FOR I = 1 TO M s NEXT I 
24 1 0 CDLDUR2 : PRI NT @K , CHR* ( 1 42) 

2420 A*=INKEY$: IFA*<>" "THEN RETURN ELSE GOSUB 2730 
2430 PRINTSK» CHR$ ( 142) 

2440 RETURN 

2450 F0RI=1TD 39 STEP 2 
2460 C0L0UR2: PRINTSI , " ♦ 

2470 NEXTI 

2480 F0RI=B81T0919STEP2 
2490 PRINTei * S 
2500 NEXTI 

2510 FOR 1=81 TOBO 1 STEP80 
2520 PRINT@I , 

2530 NEXTI 
2540 F0RI=1 1 9T0839STEP80 
2550 PRINTSI , 

2560 NEXTI 
2570 RETURN 

2580 SOUND 1 , 6: S0UND3, 5: SOUNDS, 1 1 : SQUND6, 2: SQUND7, 7: S0UND8, 31 : S0UND9, 31 
: SOUND 10,24: SOUND 12,80: SOUND 13,3: RETURN 
2590 F0RJ=1 TOS : FORI =1T0B 
2600 PLAY (1,4, I, 15) 

2610 NEXTI: NEXT J 
2620 RETURN 
2630 F=K: F0RI=1T020 
2640 F0RJ=1 T07 

2650 CDL0UR2 : PRINTSK , CHR* ( 1 42 ) 

2660 PLAY (1,5,3, 15) 

2670 S0UND6 , 30 : S0UND7 , 7 : S0UND8 ,16: S0UND9 ,16: SOUND 10,16: SOUND 12,16 
2680 C0L0UR3 : PR I NTttK , CHR* (128); CHR* (129) 

2690 NEXT J 
2700 NEXTI 
2710 PLAY ( 1 , 1,1,0) 

2720 GOTO 3910 
2730 P=40 
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27 40 C GLDUR4 : PR I NTlÜK-SO , C HP* ( 1 44 > 

2750 5i“5i+lsRRINTi§935, "Sehusszahl s “sSis 

2760 5=K- i 20 - GOSUB 2580 

7770 IF k=INT (K/2 ) *2 THEN 2730 ELSE2900 

2730 E*RND \5> -3: C0LÜUR3; PP 1NTSC-1 * ■’ " : C=OE* PRINTSC. CHR$ < 12B) S CHR* ( 

j 29 i • T — C ; u--C ’- 1 
7790 PRlNTeS." 

2800 3=5-40 

2810 CÜLGURöi PRINTilS, CHR* ( 1 45) 

2320 I r 3~T TUEN GOTO 2990 
2530 IF S=U THEN GOTO 3 100 
2840 IF 5-:P THEN 2560 
2850 GOTO 2790 1 

2860 PRINT iSK'-BOk " 

28 7 0 PR INT SS- " " 

2380 PR I NT SC .• '* " : G=C-E 

2590 RETURN 
2900 PRINTS5*" " 

2910 5=5-40 

2920 COLOURü« PRIhlTSS. CHR* (145) 

2930 IF 5 <680 THEN 2950 
2940 GOTO 2900 

2950 CQLGUR2: PRIMTSS-40, CHR* (143) s V»V+ 1 
2960 PRINTS5.-” " : PRINTSK-80, " 


2970 7.-7. - 1 OS PR I NTS928 * Z ; 

2980 RETURN 
2990 PRINTS®*" “ 

3000 PRINTSK— BO? " •' 

3010 PRINTSC— L - " 

3020 PR I NT SK : FR I NTSK-40 » " 
3030 T 1 «T 1 — 3 

3040 PRINTöT 1 OHRS ( 130) i CHR* <131 > 5 

3050 F 1 =F 1 + i 

3060 IF Fl =3 THEN3080 

3070 GOTO 1620 

3030 FÜR I = 1 TD 1 000 « NEXT I 

3090 GOTO 3760 

3100 M=MtlÖ 

3110 GOSUB 2590 


3120 

PLAY < 1 .- 1? 1*0) 

3130 

Z1=Z. 

l + l 

3140 

PöKE 

&HF 406*0 

3 1 50 

POKE 

&HF409.Ö 

3160 

PÖKE 

&HF40A* 0 

3170 

POKE 

&HF40B » 224 

3130 

PORE 

&HF40C* 208 

3190 

PORE 

&HF40D* 200 

3200 

F'DKE 

&HF4ÖE, 196 

3210 

PORE 

&HF40F - 99 

3220 

POKE 

&HF41B*224 

3230 

POKE 

&HF41C»208 

3240 

POKE 

&HF41D*200 

3250 

POKE 

&HF41E? 196 

3260 

POKE 

?<HF4 1 F ? 99 

3270 

POKE 

&HF422* 0 

3280 

POKE 

?kHF423? 7 

3290 

PORE 

&HF424? 11 

3300 

POKE 

&HF425, 19 

3310 

POKE 

&HF426? 35 

3320 

PORE 

&HF427 ? 198 



Sc V. •• 'r. 


. - .... - : 
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3330 
3340 
3350 
3360 
3370 
3300 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
34B0 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3500 
3590 
3600 
3610 
3620 
3630 
3640 

, 3790 ? 3800? 3840 ? 3880 ? 3920 
3650 NEXTJ 
3660 RETURN 

3670 PLAY (1?0? 1? 15) : RETURN 
36B0 PLAY <1?0? 3? 15) : RETURN 
3690 PLAY <1?0?5? 15) s RETURN 
3700 PLAY (1?0? 6? 15): RETURN 
3710 01=0+1 :PLAY(1?0? 1? 15) : RETURN 

3720 FÜR I = 1 TO 1 00 : NEXT I : PLAY ( 1 ? 1? 1 ? 0) : FQRI=1T050 : NEXTI : RETURN 
3730 FÜR I = 1 T050 : NEXT I : PLAY ( 1 ? 1 ? 1 ? 0 ) : FÜR I = 1 TQ50 : NEXT I : RETURN 
3740 F0RI = 1T050: NEXTI : PLAY < 1 ? 1? 1 ? 0) : F0R1 = 1T05: NEXTI : RETURN 
•-'750 DAT A1?8?2?8?3»7?5?8?3?8?2?7?3?8?3?B?3?7>5?B?0>?B?2?7?1?8?2?8? 
?8?3?B?2?7?3?S?3?8?vi?7?5?7?3?B?3?8?3?7?Ni?7?3?B?3?8?c:.?7?5?7 
3760 CLSs GOSUB 2450 

3770 PRINTS205? "Du hast die Jast gewonnen" 

3780 PRINT0365? "Der Fuchs wurde" 5 Z 1 5 "mal angeschossen" 

3790 F'RINT@525? "Es wurden "?V5" Baeume zerschossen" 

3800 PRINT@685? "Du bekommst "?Z5" Punkte" 

3810 PRINT0B05» "Du hast "sSl?" mal geschossen" 

3820 0=6: G08UB3600: GOTO 3830 

3830 C0L0UR4:PRINT@920? "Neues Spiel ? < Ja = J / Nei n = N > " 5 
3840 A*=INKEY$:lF A*=""THEN 3840 
3850 IF A$0"J"ANDA*0"N"THEN 3B40 
3860 IF A*="N"THEN 3870 ELSE RUN 10 

3870 CLS: PRINT04OO? " Du hast recht - Fuechse werden 

st und nicht erschossen"? 

3880 PRINT@8B0>" " S 
3B90 END 


POKE 

&HF433? 7 


POKE 

&HF434? 11 


POKE 

&HF435? 19 


POKE 

&HF436? 35 


POKE 

&HF437? 198 


PDKE 

&HF440? 1 


POKE 

&HF441 ? 1 


POKE 

&HF442? 2 


POKE 

&HF443? 4 


POKE 

&HF444? 8 


POKE 

&HF445? 17 


POKE 

&HF446? 31 


POKE 

&HF447 , 30 


POKE 

&HF450? 1 


POKE 

&HF451 ? 1 


POKE 

&HF452, 2 


F'OKE 

&HF453? 4 


POKE 

&HF454? 8 

- — 

POKE 

&HF455? 17 

C c 0l 

POKE 

&HF456,31 

L 

POKE 

&HF457 , 30 


GOTO 

2860 




F-RND (3) -2 
PRINTGF," " 

F=F+P:T=T+P 

PRINT0F ? CHR$ < 130) ? CHR$ ( 131 ) 

RETURN 

RESTORE 

B=0 

F0RJ=1T060 
READ A 

ON A GOSUB 3670? 3680, 3690? 3700? 37 10? 3720? 3730? 3740? 3760? 3770 


? 37B0 


3? 7? 5 


versa 
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3900 RUN 

3910 CLS : C0L0UR3 
3920 F0RI=0TO36 STEP 4 

3930 PRINT@I?CHR$(128> ;CHR*(129) SCHR*(130> SCHR$(131) 
3940 NEXTI 

3950 FDRI=79TQ799 STEP 160 
3960 F'RINTSI ? CHR$ ( 1 36) ;CHR4(136> 

3970 PRINTS 1+40? CHR$ ( 137) ;CHR*<137) 

3980 PRINTS 1+80? CHR$ ( 138) ? CHR$ (138) ? 

3990 PRINTSI + 120? CHR$ ( 139) ?CHR*(i39> ; 

4000 NEXTI 

4010 FORI =880 TO 916 STEP 4 

4020 PRINTSI ? QHR* ( 132) s CHR$ (133) SCHR*(134) ;CHR$ (135) ? 
4030 NEXTI 

4040 C0L0UR2: PRINTS 165? "DU HAST DAS SPIEL VERLOREN" 
4050 PRINTS285? "Der Fuchs wurde "?Z1?" mal verwundet" 
4060 PRINTS405? "Es wurden "5VS" Baeume zerschossen" 
4070 PRINTS525? "Du brauchst Sch i essunterr i cht " 

4080 PRINTS645? "Du hast "Jöl?" mal geschossen" 

4090 0=2; BOSUB 3600 
4100 GOTO 3830 
4110 ED IT 3595 
4120 LIST 

4130 C=C1 

4140 T=C+40s C0L0UR3: PRINTSC? GHR$ < 136) '? 

4 1 50 PR I NTSC+40 ? CHR* (137); 



4160 G0SUB2390 

4170 PRINTSC?" "? SPRI NTSC+40? " " ; 

4 1 80 T=C+BO : C0L0UR3 : PR I NTSC+40 ? CHR$ (138); 
4190 PRINTSC +80? CHR$ ( 139) ? 

4200 B0SUB2390 

4210 PRINTSC+40? " " ; : PRINTSC+80? " "S 
4220 C=C+80:IF 0839 THEN 1720 


4230 GOTO 4140 
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Abonnieren 
Profitieren I 


Sie können als Abonnent bei jeder Ausgabe drei Zei- 
len KOSTENLOS inserieren!!! - Ferner erhalten Sie 
zusätzlich kostenlos unsere 

1|Ig ROSSE PROGRAMM -SAMMLUNG 
||§ MIT VIELEN GENIE I, II, III, TRS 80 und 
IPCOLOUR GENIE PROGRAMMEN!!! 

Sichern Sie sich diese tolle PROGRAMM-SAMMLUNG 


ACHTUNG! Schicken Sie Ihre ABO-Bestellung 
in dem Zeitraum vom I.Okt.-I.Nov. 84, dann 


haben Sie die Chance bei unserer Verlosung 
einen VZ 200 Computer zu gewinnen ! 1 1 
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Klaus Kluge 


Eingeschränkte 
Hochauflösende Grafik 


r 


Das hier vorgestellte Programm 
bietet neue Grafikmöglichkeiten 
auf einem Genie I ohne Hardwa- 
rezusatz . 

Wer hier in der Überschrift nur 
die „Hochauflösende Grafik" liest, 
u. jetzt an das Setzen u. Lö- 
schen von einzelnen Punkten auf 
dem Bildschirm denkt, den muß 
ich auf den Boden der Tatsa- 
chen zurückholen. Das ist ohne 
Hardwarezusatz wohl unmöglich. 
Trotzdem ist man mit diesem 
Programm in der Lage Grafiken 
auf dem Bildschirm zu zaubern, 
die mancher bisher für unmög- 
lich gehalten hat. 

Das Funktionsprinzip. 

Vielleicht haben Sie sich schon 
so manches mal über die kleinen 
schwarzen Streifen geärgert die 
über den Bildschirm huschen. 
Ein besonders extremes Beispiel 
hierzu ist 'Stellar Escort' von Big 
Five Software. 

Jedesmal wenn die CPU zum 
Lesen oder Schreiben auf den 
wiederholspeicher zugreift 

(3C00H-3FFFH), wird dem Vi- 
deointerface kurz der Zugriff 
verwehrt. Dies führt zu den kl. 
Aussetzern auf dem Schirm. 

Diejenigen unter Ihnen, die mit 
einem kl. Hardwarezusatz die 
Priorität von CPU u. Videoin- 
terface beim Bildschirmzugriff 
umgekehrt haben um die Strei- 
fen zu verhindern, können sich 


das Eintippen des Programms er- 
sparen. Sie werden nur einen wei- 
ßen (oder grünen, oder in was für 
einer Farbe auch immer) Bild- 
schirm sehen. Alle anderen kön- 
nen durch schnellen, wiederhol- 
ten Zugriff auf den Bildwieder- 
holspeicher Muster erzeugen. Da- 
zu muß das angefügte Sourceli- 
sting assembliert werden. 

Der Programmlauf. 

Kurz noch ein paar Worte zur 
Bedienung des Programms. Es 
fragt zuerst nach einem Start- 
wert. Dieser gibt die Anzahl 
der Bildschirmzugriffe pro Durch- 
lauf einer Endlosschleife an. Ganz- 
zahlige, positive Werte sind erlaubt, 
wobei die größte Zahl von der 
Ladeadresse des Programms u. 
vom Speicherausbau Ihres Ge- 
nies abhängt. Bei einer fal- 
schen Eingabe ist diese zu wie- 
derholen. 

Abhängig vom eingegebenen 
Wert erscheint anschließend eine 
Grafik auf dem Bildschirm. Da- 
bei kann es sich um ein stehen- 
des Bild, ein laufendes Bild oder 
einfach um einen flimmernden 
Bildschirm handeln. Die inter- 
essanten Startwerte wird man 
schnell durch experimentieren 
herausfinden. 

Drückt man die BREAK-Taste, 
so wird die Textseite erneut 
präsentiert, u. die Eingabe eines 
neuen Startwertes ist möglich. 


Will man einfach einen Wert 
nach dem anderen ausprobie- 
ren, so genügt es, während sich 
die letzte Grafik noch auf dem 
Bildschirm befindet, die NEW- 
LINE-Taste zu drücken. Solange 
diese Taste gedrückt bleibt wird 
zur Orientierung der neue Wert 
in der linken oberen Ecke des 
Bildschirms angezeigt. Läßt man 
die Taste los erscheint die neue 
Grafik. 

Das Programm. 

Der Teil des Programms, der 
die Grafiken erzeugt beginnt mit 
dem Label KEYS. Dieser Teil 
stellt den Kopf einer Schleife 
dar, bei dem die Tastatur auf 
die erlaubten Tasten , BREAK' 
u. ,NEW LINE' abgefragt wird. 
Ab dem Label HERE wird der 
Speicher mit dem Byte 7EH ge- 
füllt. Dies stellt den Befehl ,LD 
A, (HL)' dar. Über das HL-Re- 
gisterpaar wird hier wiederholt 
aus dem komplett weißen Bild- 
schirm gelesen. 

Die Anzahl der Bytes wurde ja 
vorher eingegeben oder mit ,NEW 
LINE' erhöht. Am Ende dieses 
Blocks mit 7EH's folgt noch 
ein Sprung an den Anfang der 
Routine (nach KEYS). 

Von zusätzlichem Interesse ist 
vielleicht noch die Textausgabe- 
routine PRINT. Diese erwartet 
beim Eintritt die Adresse an der 
das erste Zeichen ausgegeben wer- 
den soll, gefolgt vom Text, der 
mit einem O-Byte abgeschlossen 
wird. Taucht im Text das Zei- 
chen ,s' auf, so werden die folgen- 
den zwei Byte als neue Ausga- 
beadresse interpretiert. Mit dieser 
Routine kann man schnell und 
speicherplatzsparend einen ganzen 
Bildschirm aufbauen (auch in 
anderen Speicherbereichen). 
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5300 F3 

00150 START 

01 


{Inttrrupti itttrtn nur 

5301 3EC9 

00160 

LD 

A,0C9H 

|RET-Qpcode 

5303 32C141 

00170 

LD 

(41C1H) ,A 

(DOS atört auch 

5306 310053 

00180 

LD 

SP, START 

l8tack in Sichirhait 

5309 CDC901 

00190 

CALL 

1C9H 

(Bildachira löichtn 

530C 217753 

00200 

LD 

HL, TEXT 

|T»xt auig«b»n 





530F 

CDFD53 

00210 


CALL 

PRINT 

jund Cursor poiitlonlirm 

5312 

CDB31B 

00220 


CALL 

1BB3H 

(Eingaba 

5315 

23 

00230 


INC 

HL 

(auf I/O-Buff tranfang 

5316 

CO6C0E 

00240 


CALL 

0E6CH 

iString in Z«hl uawandaln 

3319 

3AAF40 

00250 


LD 

A, (40AFH) 

|D«t#ntyp prüftn 

53IC 

FE02 

00260 


CP 

2 

I«u8 Intigir «iln 

531E 

20E0 

00270 


JR 

NZ, START 

(andarnfalli von vorn 

5320 

ED4B2141 

00280 


LD 

BC, < 4 1 2 1 H ) 

lElngab« nach BC 

5324 

78 

00290 


LD 

M 

(darf nicht Null aain 

5323 

Bl 

00300 


OR 

C 


5326 

28DB 

00310 


JR 

Z,BTART 

(dann von vorn 

5328 

211934 

00320 

1 

LD 

HL, HERE 

{ab hiar 

532B 

1 1 1 A54 

00330 

j 

LD 

DE,HERE+1 

iPrograaa ichriiban 

532E 

3E7E 

00340 


LD 

A,7EH 

j «ntipricht LD A, (HL) 

5330 

77 

00350 


LD 

(HL) , A 

(tritai Bytt 

5331 

EDA0 

00360 

LOOP 

LDI 


IHiitvr 

5333 

E25553 

00370 


JP 

PO, READY 

| bis BC Null ift 

5336 

BE 

00380 


CP 

(HL) 

inoch ia RAN? 

5337 

28FB 

00390 


JR 

Z , LOOP 

1 ja, noch «in Bytt athr 

3339 

1BC5 

00400 


JR 

START 

intin, von vorn 



00410 

> 




533B 

CDC901 

00420 

ENTER 

CALL 

1C9H 

(Bildichira löichan 

533E 

2A7553 

00430 


LD 

HL, (LA8T) 

llatzta Adrtm holtn 

3341 

E5 

00440 


PUSH 

HL 

(und rattan 

3342 

111854 

00450 


LD 

DE.HERE-t 

(Anzahl dar Bytaa barach. 

3345 

AF 

00460 


XOR 

A 

(Carry löachan 

5346 

ED52 

00470 


SBC 

HL, OE 

(HL ■ Anzahl dar Zugrifft 

3348 

CDAF0F 

00480 


CALL 

0FAFH 

(HL dtziaal auigaban 

534B 

3A4038 

00490 

HAIT 

LD 

A , (3840H) 

(Kontrolltaatan abfragan 

534E 

3D 

00500 


DEC 

A 

(BOlangt NEH LINE gtdr. 

534F 

28FA 

00310 


JR 

Z.HAIT 

(iit, Nartan 

3351 

El 

00520 


POP 

HL 


3352 

367E 

00530 


LD 

(HL) ,7EH 

(Prograan varlingarn 

3334 

23 

00540 


INC 

HL 

(nauti Enda 

5355 

227553 

00550 

READY 

LD 

(LA8T) ,HL 

(Enda aarkan 

5358 

36C3 

00560 


LD 

(HL) , 0C3H 

(JUHP-Opcoda 

533A 

23 

00570 


INC 

HL 


333B 

110054 

00580 


LD 

DE,XEY8 

(Bprungzial 

335E 

73 

00590 


LD 

(HL) ,E 

1 abl agan 1 

335F 

23 

00600 


INC 

HL 


5360 

7A 

00610 


LD 

A,D 

5361 

77 

00620 


LD 

(HL) , A 


3362 

BE 

00630 


CP 

(HL) 

inoch ia RAN ? 

5363 

209B 

00640 


JR 

NZ,BTART 

(nain, von vorn 

5365 

21003C 

00650 


LD 

HL, 3C00H 

(koaplattan Bildichira 

5360 

11013C 

00660 


LD 

DE, 3C01H 

(HtiB aalan 

S36B 

01FF03 

00670 


LD 

BC,3FFH 


536E 

36BF 

00680 


LD 

(HL) ,0BFH 


5370 

EOB0 

00690 


LDIR 



5372 

C30D34 

00700 


JP 

KEYS 

(Prograan anapringtn 



00710 

1 




5373 

0000 

00720 

LA8T 

DEFH 

0 

(latzta Poiition 



00730 

1 




3377 

593C 

00740 

TEXT 

DEFH 

3C59H 


5379 

45 

00750 


DEFH 

'Eingaachrinktal ’ 

5388 

953C 

00760 


DEFN 

3C95H 


538A 

4B 

00770 


DEFM 

'Hochauflflitnda 

Srafikl' 

53A1 

1630 

00780 


DEFH 

3D16H 


33A3 

31 

00790 


DEFH 

'1984 von Kl «ui 

Klugal* 

53B8 

373E 

00800 


DEFH 

3E57H 
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53BA 

45 

00B10 

DEFM 

'Erster Wert*' 


53C6 

C03F 

00820 

DEFW 

3FC0H 


53C8 

42 

00030 

DEFM 

'BREAK ~ Naue 

Eingabel ' 

53DD 

EB3F 

00840 

DEFW 

3FE8H 


53DF 

4E 

00850 

DEFM 

'NEW LINE - Nächster Hartl' 

53F8 

2040 

00860 

DEFW 

4020H 

(Cursor positionieren 

53FA 

53FC 

633E 

00 

00870 
00880 
00890 j 

DEFW 

NQP 

3E63H 

(an diese Adresse 

53FD 

5E 

00900 PRINT 

LD 

E, (HL) 

jLSB der Zieladresse 

53FE 

23 

00910 

INC 

HL 


53FF 

56 

00920 

LD 

D, (HL) 

) MBB der Zieladresse 

5400 

23 

00930 

INC 

HL 


5401 

7E 

00940 PRLDOP 

LD 

A, (HL) 

j Ausgabezeichen lesen 

5402 

23 

00950 

INC 

HL 


5403 

B7 

00960 

OR 

A 

>00H als Endekr i ter ium 

5404 

CB 

00970 

RET 

Z 


5405 

FE40 

00980 

CP 

'§' 

(neue ZieladresBe ? 

5407 

2BF4 

00990 

JR 

Z, PRINT 


5409 

12 

01000 

LD 

(DE) , A 

(einfach ablegen 

S40A 

13 

01010 

INC 

DE 

540B 

1 BF4 

01020 
01030 | 

JR 

PRLOOP 


540D 

3A4038 

01040 KEYS 

LD 

A , (3840H) 

jKontrol ltasten abfragen 

5410 

3D 

01050 

DEC 

A 

(NEW LINE gedr zückt ? 

5411 

CA3B53 

011 . 

JP 

Z, ENTER 

(Programm verlängern 

5414 

FE03 

01070 

CP 

3 

1 BREAK gedrückt ? 

5416 

CA0053 

01080 

JP 

Z, START 

(von vorn 

5419 

00 

01090 HERE 
01100 

NOP 


|hier wird das Programm 
(ergänzt 

5300 


01110 

END 

START 

\ GENIE 1 


+ 11 

TRS 80 


Die kostenlose KUNDENDIENST-INFORMATION 

GENIE NACHRICHTEN 

sechs n»a' 


Ersehe' 0 * 


Jahr 



von 



COMPUTER GMBH 


bei Ihrem Händler zu haben! 

oder anfordern bei 
HEEL-VERLAG 
Postfach 320220 
5300 BONN 3 


BESTELLCOUPON 
Bitte, senden Sie mir kostenlos die neueste Ausgabe 
der GENIE NACHRICHTEN 


Name:.. 
Straße : 
PLZ 


Ort. 




Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver- 
gleich, alle ZSO Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier., Sound Generator), wie baut man Maschinenprogramme in Basicprogramms ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis! 


Mühlbach Straße 2 
5429 MARIENFELS/Taunus 
Telefon 06772/1261 
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Beides! IlöSUf radix 10 

Druckprinzip: 9-Nadel-Matrlx-Druckkopf au/ Normalpapier Geschwindigkeit: 800 Zeirhen/Sekunde, bei Schönschrift 32 Zeichen/Sekundc Puffer.- 10K Schrift- 
größen: 10, 12, 17 (6, 6, 8.5) Zeichen/Zoll, entsprechend 80, 96, 136 (bei doppelter Breite: 40, 48, 68) Zeichen/Zeile Schriftmatrii: Standard ASCH mit 
Unterlängen 9x9, Breis 18 x 9, Fett 18 x 18, Schönschrift 17 x 9 Grafik: Blockgrafik 6*6, Lew Resolution Grafik 480 x 8 PunkteÄelle, High Resolution 
960 x 8 Punkte/Zeile, Ultra High Resolution 1920 x 8 Punkte/Zeile Schriftsatz: 96 Standard ASCII Zeichen, 96 NLQ-ASCIi Zeichen, e8 Internationale 
Sonderzeiehen, 64 Sonderzeichen, 32 Blcckgrafikzeichen, 2 * 66 Hintergrundzeichen (normal + proportional) Schriftarten.- Normal, Elite, F.ng, Breit, Extra Fett, 
Superscript und Subscript Bonderfunktlonen: Schönschrift (NLQ), Einzetbiatteinzug, Selbsttest, Hintergrundzeichen, Macro-Instruction, durchgehendes 
Unterstreichen, Form- und Länge nauswahl mit Kippschalter, 7 oder 8bit wählbares Interface, Papiertransport vorwärts und rückwärts, Hochauflösende Grafik 
PormularFunktlon: vertikaler und horizontaler Tabulator, linker und rechter Rand, Leerzeiisn zwischen den Seiten, Zeilenanzahl pro Seite, Zeilenabstand /sZoll 
und 14 Zoll, sowie programmierbar ln Y« Zoll und /*Zoll Farbband: Kassette, Nyion 40/34 F, endlos Papier: 1 Original und 3 Durchschläge, Einzelblatt 
14-21, 6cm Breite, Endlos lO,2-25,4em 3reite Interface: Standard: Seriell und Parallel, Optional: IEEE, Commodore, Orafstar (APPLE) Abmessungen: 
41,4 x 34,5 x 11,7 cm Gewicht: 9,1 KG 
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